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3 1 0001 MODULE SRTSPC ( IDENT = ‘v04-000' ! File: SRTSPCBL1.832 Edit: VLB3042 > 

$ § L 000 8 UIRE('SR C$: DEFSO') ) = $ 

3 bn8 1 BEGIN 3 

@ 4 00 1 | ennccece em me ee ore 2zewe eee 22 e Se we Se eS ec@E cern we Deena eaeea = See we SS eS SSeS eS ee Ps 

; 5 0010 1! 3 

3 $ beta i i wearer eeeeeeReeeeeeeeeeeeeeneeeeeeeeeereneeneeeeereeeeeneeneeeeeeeeeeteeeeee Py 

; '® $ 

3 8 $38 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 6 * 3 

Tae | 0014 1 i DIGITAL EQUIPMENT CORPORATION, - MAYNARD. MASSACHUSETTS. * | ; 

3 19 oole : - ALL RIGHTS RESERVED. * ; 

Py ; © 

; \¢ gett 1 !® THIS ee fs FURNISHED uuoee A LICENSE AND MAY BE USED AND COPIED * 

Pay 0 18 1 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

3 14 001 1! IN ELUSION OF one ABOVE oo Te nern NOTICE. THIS soF TW WARE OR ANY OTHER & 

H 15 0020 1 !* ak by THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY & 

$ 16 OOS, 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: + B58 : * TRANSFERRED. * 

; {tf . 

; 2 619 0024 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO 0 CUANGE WITHOUT NOTICE * 

: 20 0025 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $3 Boss ! - CORPORATION. * 

° ; oy 

5 23 $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

: 24 94 1 !® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

a an 0030 1 !* . 

; 26 0031 1 is . | 

: e7 bas DN RRA RAAT EAA AAA AAA 

: 38 0033 1 | | 

: ¢9 BO54 | Jenene cecccconsewnnneeusseensnereseenendenenrenaneesuesenssasSnnnsennenaen 

3 0 0035 1 

s SF 0036 1 !++4 

; fe 0037 1°! Facility: 

: 7, oe 0038 1! 

; 34 0039 1! PDP=-11 SORT/MERGE V3.0 

: 35 0040 1! VAX=11 SORT/MERGE V3.0 

: @ 0041 1! 

; 37 Bog 1 ! Abstract: 

; 0043 1! 

; 0044 1! 

; 40 0045 1 ! Environment: 

ss «(41 0046 1! 

3 $s 0047 1! 

; 4 0048 1 ! Author: 

: 44 049 1! 

.. 050 1! Victor L Bennison, Creation Date: 8-Mar-82 

7 051 1: 

; 67 O3¢ 1 | MODIFIE : 

: 648 053 1! xX 07001 Peter D Gilbert Aug 1982 

: 69 Bnee 1 i Pervasive modifications. 

; 29 055 1! Pass text as a vector of 2 or 3 items. 

: 1 Ree ? Move expansion of keywords into this module. 

; 26 57 1! General code cleanups. 

—. -s 58 1! Added ERR_ and WRN_ macros. 

3 4 059 1! Corrected the EBC_TAB table. 

: 5 060 1! Used TYP_K_xxx vaTues to identify the sort process. 

3 $ iS Deferred determ eg whether sort or merge until run-time. 

3 062 1! Used DT_xxx values to identify datatypes. 


SS - . 4 
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; 8 863 74 T03-016 Improve allocation of the work area. Change PARSE atest aad 
; 9 64 1! prececence of AND/OR, and nested perens- DG 13-Dec-198 
; 60 065 1! 103-017 gaplete implementation of ws. ILES; etorg. : quntes. ist of 

; Bo8 1! CFT table indices for the work fTle names. 6-D or) 
3; § 067 1! T03-018 Fix a reference in PARSE_KEY which caused ASCENDING and 
3 o7 bee } bess ENING to pet & be. persed, Also, fixed a reference in 
; H ol 
. 896 1! T03-019 Fix stim | arakiane = 1382 ST indices. 
; & Bae) 1! Add ZONED. 

; Of 0 ue 7! Support conversions of decimal constants. 
: «668 0075 1! Fix 3 ~Det-1982 problem with MOD:(''C'’<"’R’’), 
: 9 Beee 1! PDG 29-Dec-19 

; 0 075 1! 18 -020 Fix b bug,‘ Neerit cone 8 of characters. PDG 3-Jan-1983 

ha Bo78 1! 703-021 Store PT =H PDG 6- yarn 1983 

ie 0077 1! T03- ; Fix initTalTzation of “Se 4 MOL Tl. PDG 10-Jan-1983 

ee. 0078 1! T03- Fo} Leg ing sequence stuff. Fi x GET STRING. PDG 26-Jan-1983 

s 76 0079 1! T03-024 Call COLLSFOLD to fold double. characters. Fix GET _CHAR_CLAUSE 

; 0080 1! so that returnin Hee ~ sets the second char the same 

; f 0081 1! as the first. § 1=Feb-198 

SAR. 0082 1! T03-025 Diagnose ‘ ue x then Lit)''. PDG 2-Feb-1983 
: 00835 1! ht § Change DEC_UP * igi tferent cases are. equal. PDG 11-Feb-1983 

:; #679 0084 1! T0 3 Compute KFT_NDE_SIZ value POG 12-Feb-19 

; #8 0085 1! T03-028 set the CA_TIE_BREAK flag: in onesres*. 16-Feb-1983 

; 8 0086 1! T03-029 Change DEC_UPP’so shar is efore 8; gmern tte 

; § 0087 1! T03-030 Remove need for COLLS$C MPRESS. Foe 5-Apr-19 

; ¢ 0088 1! T03-031 Change for tie-breaking, so that CNOJTIE_BREAK turns on Coff] 

; = 0089 1! both the second pass and third pass comparisons. Note that the 

. a 0090 1! second pass table is egos tyres only for DEC_MULTI; by default, 

; 86886 0091 1! the second gees table is all zero (this is Optimized away by 

s 87 ad es COLLSRESULT PDG 12-Apr-198 

; =6888 0095 1! 103-038 d some error reporting in PARSE_COLL. PDG 15-Apr-1983 

i. oe 0094 1! T03-0335 Always reverse the sense of the tTe-break. PDG 18-Apr-1983 

:; 90 0095 1! T03-034 saenees Recqssery, for SORT-11 over tay. VLB 1-Jul-1983 

; Wi 0096 1! T03-034 Set default length’’ for work file names. PDG 15-Aug-1983 

‘hee 0097 1! 138-5 5 word = a. work area after allocating Seggtents.. 28-Jul-1983 

2 0098 1! T03-036 Make CFT £5ONe ADR relative. Be 2-Aug-19 

; 694 0099 1! T03-037 Changes fo merge Sort-32 and Sort-11 sources. PDG 31-Jan-1984 

; 0100 1! T03-038 ghenge Coy bn stats to fix /WORK_FILES. PDG 16-Feb-1984 

; 0101 1! T03-C39 Set CAL ) for SGRT-11 statistics, fix process 

: «97 8108 - ae RH, mie B-1984 

; | «98 0105 1! 10-809 Fix the error handlin for SORT-11. VLB 23-FEB-1984 

; 0106 1! T03-041 Use TRUE/FALSE instead of ON/OFF when setting modified, also 

; 100 0105 1! make some BLISS16 stuff unconditional instead. VLB 7-MAR-1984 

3 13 B106 ! TO03-042 Fix handling of WKAREA error. VLB 9-MAR-1984 

P+ . | 
3 108 198 1 ! SYNTAX: 

3: 104 109 1! /COND = (NAME: nane TEST: test) 

s 105 110 1! /OMIT = (COND:c¢ 

: 106 111 7! /INCL = (COND: cond. DATA:data, KEY:key) 

s 107 M6 1 !-- 

; 108 113° «1 

: 109 114 1 REQUIRE ‘SRC$:DKS'; 

: 110 a6 1 

: 111 413 1 EXTERNAL ROUTINE 

3 16 414 1 PISPASS ~ONE: CA_LINKA 

> 11 415 1 P2$PASS_TWO: CA LINKAGE, 

: 114 416 1 p SPASS_ THREE: CA_LINKAG 
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; 115 417 1 P4SPASS_FOUR: CA_LINKAGE, 

; 118 ‘18 ! PSSPASS_FIVE: CA_LINKAGE; 

: 118 & 1 FORWARD ROUTINE 

3; 1 421 1 CVT_ATB, ' Convert ascii to binary 

; 120 4 § 1 ERR_CNTL CA_LINKAGE, ! Error control routine 

.) Sz 4 1 FIND_R ' Find the next unquoted right parenthesis 
Ba é 44 1 GET_CHAR_CLAUSE, i Get character clauses of various kinds 

3 425 1 GET_KYW_TYPE ' Get keyword type 

> 124 4 § 1 GET-NEXT SPEC, ! Get pointer and Length of next specification 
3; Ve 4 1 GET-ONE CHAR, ' Get character or double character 

2 § 4 4 1 Ob TS TRING ' Find spring and move around it 

: 1 429 1 GET~SUB_SPEC, i Get pointer and Length of sub-specification 
: 128 430 1 SEARCH_TABLE, ! Search a table for a string 

; 129 7 oe SKIP_COMMA ! Skip commas and ignored stuff 

: 130 a SKIP~ IGNORED, i Skip ignored text characters 

; 13) 04 1 RIF ZBLISS(BLISS32) XTHEN 

5 138 0235 : ape a oun CA_LINKAGE, ! Define a field 

; (134 0436 1 SORSSSFPRS: CA_LINKAGE, ' Process specification file text 

3 135 0437 1 SPC_ALLOC: CA_LINKAGE, ! Allocate storage from the work area 

; 136 0438 1 SPC_HEAP: CA_LINKAGE; ! Allocate temp storage from work area 
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; 138 rhe ] | Define the text of the keywords 

: 140 L 0441 1 ZIF XBLISS(BLISS16) 

ere ne a lis ee 

: 128 U 0464 1 PLIT = S$SFWRD (NOWRITE,NOEXECUTE,GLOBAL); 

> 144 445 1 XFI 

eres te9 1 MACRO 

> 147 448 1 TXT ay ; = ZASCIC B 

: 148 0449 1 OF F~ = OFF_ Tass ion OFF__, OFF__ + ZCHARCOUNT( B ) + 1) 3; 
: 149 0430 1 COMPILETIM 

: af 08) 1 BIND 

: 152 oe2g 1 SRTWRD = UPLIT BYTE( TXT_( KEYWORDS ) ): - VECTORC, BYTE), 
: 153 0454 1 WRDOFF = UPLIT WORD( OFF™( KEYWORDS ) ):  VECTORE. WORD): 
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GLOBAL ROUTINE SORSSSFPRS ( 
SPEC_TEXT: REF _VECTORC2] 
): CA_LINKAGE = 


” 
i Functional Description: 
Parses the specification file buffer 
Formal Parameters: 
SPEC_TEXT Addr of length/address of buffer containing specifications. 
Implicit Inputs: 
None. 
Implicit Outputs: 
None. 
Routine Value: 


0 on error. 
1 for sucess. 


Side Effects: 


None. 
Notes: 

When the neue record LRL is known, it should be stored in: 
FOTCO, FDT_FLD_SIZJ and KFTIC*, KFT_NDE_SIZ) for every KFT entry 
with KFT_CONSTANT = FALSE and KFT_FOT_TDX = 0. 

BEGIN 

LOCAL 
TROT: REF TROT_TABCROT_MAX) ' Hold info on record types 
CDX_SYM: REF SYM_TABLMAX_CONDKS, i Condition ‘symbol’ table 
CDX_CNT, ! Entries in CDX_SYM ???safe??? 
CON_SYM: REF CON_SYM_TABCMAX_CONST]), ' Constant ‘'symbol"’ table 

ON_CNT, ! Entries in CON_SYM ???safe??? 

FLD_SYM: REF SYM_TABCMAX_FIELDS); ! Field ‘‘symbol"” table 

LOCAL 
START: VECTOR(3), ' Length/address/Line of start of spec buffer 
WRK_END; ! End of work area 
L 
normal; 


Get the impure area 
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p 
p- 
CA_AREA_( CA ); 

output_('sor$$sfprs'); 


normal: 
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BEGIN 

Save the address at the end of the work area 

WRK_END = .CACCA_WRK_END); 

Initialize start to length/address of buffer as passed 


STARTC_LEN ) = » SPEC TEXTE LEN ; 
STARTC_PTR ) = ,SPEC_TEXTC_PIRI; 
STARTC_LINE) = 1; 


! Find the start of the first specification, ignore preceding 
' Comments , nulls and blanks. start will be constant for rest of parse. 
If there's no text, exit with success 


IF SKIP_IGNORED( STARTCO] ) EQL FAIL THEN RETURN SUCCESS; 


t+ 
' Seven tables are created by this routine. 
These sones ere Spested/eupendes in the passes Listed below: 


IZ 
CA_FDT_ADR/S 
is 


4,5 
CATRDT"ADR/SIZ 3 
CATCFTTADR/SIZ 3,4,5 (via PARSE_TEST and PARSE_KEY) 


The CFT table may be ‘‘expanded’’ in any of several places, but the work 
area storage is not allocated until after all the other processing. 
The information is stored in a temporary table, described below. 
Four temporary tables are used: j 
FLD_SYM Symbol table for named fields 
CDX_SYM Symbol table for named conditions 
CON_SYM Symbol table for constants 
TROT Temporary record definition table 
these are allocated at the end of the work area, and the work area 
restored when processing is complete. 


tialize constant table 

ocate space for field symbol table 

tialize condition symbol table . 

ocate space for the temporary record definition table. 


YM = HEAP_( %SIZE( CON_SYM_TABLMAX_CONST) ) ); 


NT = 

YM = HEAP_( ZSIZE( SYM_TABCHAX FIELD 1)); 

VM = HEAP_( ZSIZE( SYMTTABLMAX~CONDX) ) ); 
=v; 

T = HEAP. ( ZSIZE( TRDT_TABLRDT_MAX)) ); 
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! Pass 4: parse all /KEY and /DATA specifications. 

: define the default record type in temporary 

! record definition table. 
: Build the KFT teble 


o 


RORPRENMONPOAPON — OS Os Os a 


IF P4SPASS_FOUR( STARTCO), 
ON_SYACO, BASE_J. CON_CNT, 
FLD-SYM 


- BASE_ 
CDX~SYMCO, BASE— 
LEAVE normal; 


* CDX_CNT ) NEQ SUCCESS 


v04- -Sep-1984 SORT32. SRe SRTSPCBLI.B32;1 
3 9 

: 4 1 Make an entry for the default record type. 

: 237 re TRDT + TROT INCLUDE? = TRUE j 

$ 7 7 TRDT TROT- _CONDX = Fale . 

; ti fs TROTCO, TROTIKFT_IDX) = .CACCA_KFT_S1Z); 

: 7 7 | eeccocccccocenccecccoescoceccceccccscececceccccececce 

: 7 ig ' Pass 1: parse /process, /stable, /strip 

; 278 278 ! and /collating_sequence opecittcotione. 

: & 386 Build the PT and ST tables 

> 281 1 

: Hy 286 if aieaae atte STARTCO], CON_SYMCO, BASE_J, CON_CNT ) NEQ SUCCESS 
: 84 0584 LEAVE normal; 

3; 285 B28? 

: 86 288 Le eee errr 
; 287 058 ' Pass 2: define all fields, fill the field definition 
; 288 0588 i table and the field symbol table 

3 89 0589 ! Build the FDT table 

; oY Bene Lee eee rrr 
: 36 0394 IF P2$PASS_TWO( STARTCO], FLD_SYMCO, BASE_) ) NEQ SUCCESS 
: 294 0594 LEAVE normal; 

: 295 0595 

3 96 9396 Se errr 

: 444 059 ! Pass 3: parse condition sees tf ications. 

: 298 0598 ! set up test definition table, 

: 344 0599 ! condition symbol table and the 

; 300 0600 ! constant symbol table. 

3 $04 0601 ' Build the TDT table 

3 4 et Vere r eee emer ene eee e eee ee eee ew ee ee me eee ee eee ee ee ene 

; wD 060 

$ 04 0604 IF oper ass pyres s STAR 

3 05 0605 BASE. ae? CNT, 

3 5] 8908 FLD: ke 0: BA 

3 4 $28 enerne SYM BASES > CDX_ CNT ) NEQ SUCCESS 

; 09 960 EN GAVE normal; 

: i 06 | eeewmewewewwceewwewewcewewceewcccecwececccccccecccoccce 
: 38 

: 314 

; 1? 

; 13 

; 318 

3 19 

3 0 

; 

: 35% 

3 5 
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' Pass 5: parse all /include and /omit spec} fications. 
' finish the temporary record definition table. 
: create the record definition table from the 

! temporary record definition table. 

: create the constant table. 

: Build the RDT table 


PAARAAAAO 


IF PSSPASS FIVE( STARTCO), 
CON_SYACO, BASE_J, CON_CNT, 
FLD_SYMLO, 8B 


CDX"SYM * CDX_CNT 
reo. 


TRD 


BASE 
BASE. 3 J NEG SOCcEss 
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; 328 

; 9 

3 0 

2 

; 38 

i 33 

3 9 3 

; 340 4 LEAVE normal; 

: 341 4 

3 tg r 1444227 

. 1 

: 344 064 ! It may be worthwhile to determine the following information: 
; 345 0645 ! Number of different record formats 

> 346 0646 ' Longest (output) record Length 

: 347 0647 ! Whether any record reformatting is needed 
; 348 0648 Se >: 

; 349 0649 ! 

3; 3 0650 1444227 

; 351 0651 3 

3 $26 0626 : Restore the ending address of the work area 
; 334 0654 CACCA_WRK_END] = .WRK_END; 

3 399 0655 

3 56 L 0656 ZIF ZBLISS( BLISS16 ) 

; 337 U 0657 ZTHEN 

; 358 U 0658 

; 359 U 0659 ! Check error flag 

; 360 U 0660 ! 

3 36) U 0661 IF .CAC CA_1ST_SPC_ERR J] NEQ 0 . 
; 362 U Bo0¢ ! Error encountered during parse 
: 363 U 066 LEAVE normal; 

3; 6364 U see: 

s 365 665 XFI 

3 $6 0666 

; 36 set! ! No error encountered 

: re 5 RETURN SUCCESS 

3 $3 0370 

3 71 671 ‘end normal processing 

ee ee 

; R rR : Invalid specification. Return the first error message 
; 7 L 6 ZIF ZBLISS( BLISS16 ) 

; oF U 067 <TH 

3 8 U 8 'fill the error buffer 

; of U 067 BEGIN 

; 80 U LOCAL ERR_BUFF : REF VECTORC,WORD); 

; 381 U ERR_BUFF = CAL CA STAT ADR : 

; 382 U ERR-BUFFC 0 J = .CAC CA~1ST_SPC_ERR J; 
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N 14 
SRTSPC 16-Sep-1984 53:54 AX-11 Bliss<-32 V4.0-74 Page 11 
v04=000 13-8 8-138e 99 33:34 SORT32.SRC Shisbcarl 68251 . (3) 
04 AE D4 CLRL ‘CON_CNT 1 0564 ; 
7 OSFA BF i 36 OVZWL tee -(SP) : o2ee ; 
1 FB CALLS #1, SHSSPC_HEAP : ; 
3 0 p 4 OVL RO, FLD_SYM : ; 
E OSFA BF 3C 0004 MOVZWL #1530, =(SP) + 0566 ; 
1 Fe 904 CALLS #1, SHSSPC_HEAP : ; 
4 0 DO 00048 MOVL RO, CDX_SYM : ; 
6E D4 O04E CLRL  CDX_CNT + 0567 ; 
7 CO 8F 9A 0005 MOVZBL #192, =(SP) : 0568 F 
6 oI F 0094 ALLS #1, SHSSPC_HEAP : ; 
5 0 00057 MOVL RO, TROT : ; 
& 01 O003A BISB2 #1, (TRDT) : 0578 : 
6 2 8A 0005D BICB We (TRDT) + 057 : 
02 A OOFD CB 90 99060 OVB 253(CA), 2¢TRDT) + 0574 ; 
04 AE 9F 00066 PUSHAB CON_CNT : 0582 : 
55 0D 00069 PUSHL CON7SYM : F 
10 AE OF 90068 PUSHAB START : ; 
000000006 00 03 FB O06E CALLS #3, P1SPASS_ONE : : 
01 50 »1 0007 CMPL = RO, #1 : : 
65 12 00078 BNEG 3$ : : 
53 DD OO07A PUSHL FLD_SYM + 0592 ; 
OC AE 9F 0007C PUSHAB START : ; 
000000006 00 08 FB 0007F CALLS #2, P2$PASS_TWO : ; 
01 50 D1 00086 CMPL =s RO. #1 : : 
54 12 00089 BNEQ 3$ : ; 
4018 8F BB 0008B PUSHR #*M<R3,R4,SP> + 0607 : 
10 AE 9F O008F PUSHAB CON_CNT > 0605 ; 
55 DD 00092 PUSHL CON7SYM + 0607 ; 
1¢ AE 9F 00094 PUSHAB START + 0604 ; 
000000006 00 06 FB 00097 CALLS #6, P3SPASS_THREE : 0607 : 
01 50 D1 0009E CMPL =s RO. #1 : ; 
3¢ 612 OOOAI BNEQ : : 
4018 8F BB 000A3 PUSHR #*M<R3,R4,SP> > 0621 ; 
10 AE 9F OO0A7 PUSHAB CON_CNT : 0619 ; 
55 DD OOOAA PUSHL CON7SYM + 0621 ; 
1¢ AE OF OOOAC PUSHAB START : 0618 : 
000000006 00 06 FB OOOAF CALLS #6, P4$PASS_FOUR : 0621 : 
01 50 01 00086 CMPL = RO, #1 ; : 
24 12 00089 BNEG 3$ : : 
2 DD 00088 PUSHL : 0638 3 
04 AE 9F 000BD PUSHAB CDX_CNT > 0637 3 
18 8B 900¢0 PUSHR #*MZR3,R4> : 0638 : 
14 AE 9F 000C PUSHAB CON_CNT : 0635 : 
5 bb 99¢ PUSHL CON SYM : 0638 : 
20 AE 9F 000C PUSHAB START > 0634 : 
000000006 00 97 FB OOOCA CALLS #7, PSSPASS_FIVE : 0638 : 
01 0 D1 00001 CMPL =sRO, #1 ; : 
09 if 90004 BNEQ ; : 
012¢ «CB 6 DO 00006 MOVL § WRK_END, 300(CA) > 0654 : 
50 01 DO 000DB 2s: MOVL #1,7RO > 066 3 
04 QOODE RET 3 : 
50 D4 OOODF 3$: CLRL = RO : 0687 : 
04 000E1 RET > 0690 3 
; Routine Size: 226 bytes, Routine Base: SORSRO_CODE + 02A4 3 
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754 SORT32.SRCISRTSPCBLI.B52;1 


93 69 ZIF ZBLISS(BLISS32) XTHEN 
94 69 GLOBAL ROUTINE SORSSDEF _FIELD( 
95 694 FIELD_NAME: REF VECTOR(E2), 
96 695 DATATYPE: BYTE, 
97 69 POSITION: WORD, 
98 69 LENGTH: ORD, 
99 698 SCALE: BYTE 
400 0699 FLD_SYM: REF SYM_TABL], ! Field “'symbol"’ table 
401 0700 KYW_LINE 
40 0701 ): CALLINKAGE = 
40 07 § BEGIN 
404 070 LOCAL 
405 Bre INDEX, 
406 705 NAME:  VECTOR(2), 
407 BPRS FDT: REF FDT_TABCJ; ! Pointer to Field Defn Table 
408 070 
409 4 Get the impure area 
CA_AREA_( CA ); | 
; Save the name 
1 NAMECO] = .(FIELD_NAME[0])<0,16,0>; ! Length is only a word 
1 NAMEET = HEAP _(.RAM 6532 . ; 
} ‘ LD_NAMEC1], .NAMEC1}); 
1 
1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 
CHSMOVE(.NAMECOJ, .FIE 
FDT = ALLOC_(FDT_UNIT); 
CACCA_FDT_ST2] =". CACCA_FDT_SI2Z) + 1; 

} Too many entries in FDT or field symbol table? 


if, CACCA_FOT_S1Z3 GEQ MIN(FDT_MAX, MAX_FIELDS) 


BEGIN 
ERR ( .KYW_LINE, SORS_SPCIVF ); ! Invalid field 
RETORN FAIL; 
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FD _TYPE) 
7 FD SCALE] =. 
7 FDTCO, “FLD POs} = .POSITION; 
, FDTCO, FDT-FLD"S12) = .LENGTH; 
g Look for the name in the field symbol table 
38 7 IF SEARCH _TABLE( NAMECO), INDEX 
439 r3 FCD_SYMCO,BASE_J. .CACCA_FDT_SIZJ-1 ) EQL SUCCESS 
441 74 BEGIN ! Name has already been used 
44 74 ERR_( .KYW LINE, SORS_SPCIVF ); ! Invalid field | 
44 74 RETORN FAIC; 
444 74 ND; 
445 744 
44 745 ' Put the lLength/address in the field symbol table entry 
ret i } Put the fdt index in the field symbol table 
449 748 BEGIN | 
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SRTSPC 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 14) 
v04=000 13-808=138e 90:38:80 EeoRT 2.SRCISRTSPCBLI.B32:1 wal (4) 
; 450 749 LOCAL FLD_SYM_LOC: REF SYM_TAB (1); 
: 451 750 FLD_SYM_LOC ="FLD_SYMC.CACCA_FDT SizJ-1, BASE_J; 
; 4 é 751 FLD-SYM_LOCCO, SYM_NAM_LEN] = .NAME “LEN: 
; 4 7 : FLD-SYM-LOCLO, SYM-NAM ADR = .NAMEL-PTR): 
; 454 07 FLD-SYM-LOCCO, SYMIINDEX] = .CACCA_FOT_S12)-1; | 
: 4655 754 END; | 
: 456 755 | 
; rut Bf § RETURN SUCCESS; 
: 459 0758 1 END; | 
003¢ 00000 .ENTRY SORSSDEF_FIELD, Save R2.R3,R4,R5 : 0693 
0c C3 90008 SUBL2 #12, : 
52 04 AC b 000 MOVL FIECD_NAME, R2 + 0714 
04 62 3C 00009 MOVZWL (R2), NAME : 
04 AE DD 0000D PUSHL N + 0715 
0000v CF 01 FB 9010 CALLS #1, SHSSPC_HEAP : 
08 AE 50 00 001 MOVL. RO, NAME+ : 
08 BE 04 8B 04 AE 0019 MOVC3 NAME, @4(R2), @NAME+4 : 0716 
06 DD 00020 PUSHL : 0718 
0000V CF or FB 000 ; CALLS #1, SASSPC_ALLOC ; 
52 0 00 000 MOVL RO, FDT ; 
OOFF CB 96 OO02A INCB 33 (CA) : 0719 
FF OS OOFF CB 91 O002E CMPB S5(CA), #255 : 0723 
2D 3 00034 BGEQU ; 
é 08 AC 90 000 MOVB DATATYPE, (FDT) : 0730 
01 =A 14 AC 90 OO03A MOVB _— SCALE DT > 0731 
02 =A OC AC BO 0003F MOVW POSITION, 2(FDT) : 07 g 
06 =A 10 AC 80 0044 MOVW LENGTH 4cFpT) : 07 
7E OOFF CB 9A 00049 MOVZBL 255(CAS, -(SP) : 0738 
6E D7 0004 DECL (SP) : 
18 AC DD 0005 PUSHL FLD _SYM : 
08 AE 9F 0005 PUSHAB INDEX : 0737 
10 AE OF 0096 PUSHAB NAME F 
0000v CF 4 FB 005 CALLS #4, STSSEARCH_TABLE : 0738 
01 0 D1 0005€ CMPL sO. #1 : 
10 12 00061 BNEG : 
001€8194 8F DD 00063 1$: PUSHL #1868180 > 0741 
1¢ AC DD 00069 PUSHL KYW_LINE ; 
0000v CF 0¢ Fe O06¢ CALLS #2, ECSERR_CNTL : 
1 BRB > 074 
50 OOFF CB 9A 0073 2$: MOVZBL 255(CA), RO > 075 
50 6 C4 0007 MULL #6, RO ; 
50 18 «AC cg 0078 ADDL2 FLO_SYM, RO : 
50 : 007F DECL FLD SYM LOC ; 
70 04 AE 99 1 MOVB NAME, -TFLD_SYM_LOC) : 0751 
70 08 AE p 5 MOVL NAMES4, =(FCD SYM LOC) : 07 é 
05 ad OOF F cB 1 0089 SUBB3 «#1, 255(CA), S(FLB_SYM_LOC) : 075 
1 p MOVL #1, RO ; 0756 
4 0009 RET : 
50 04 00094 3S: CLRL = RO : 0758 
4 00096 RET : 
| 
. j 
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; Routine Size: 151 bytes, Routine Base: SORSRO_CODE + 0386 


; 460 0759 1 &FI 


F 15 
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: re 769 } GLOBAL ROUTINE SPC_ALLOC( AMT ): CA_LINKAGE = : 
3 4 Tee 1 t+ 3 
3 ce per ! Functional Description: : 
; rh 765 1! Allocate some storage from the work area, checking that we don't : 
: 468 7 § 1! exceed the end of the work area. 3 
: 469 7 1! 3 
; 470 7 3 1 ! Formal Parameters: : 
3; 471 6 1! 3 
$ rh ag : AMT Amount of storage to allocate, in bytes. : 
: 6746 ae 1 ! Implicit Inputs: 3 
¢ aR tre 1 i implicit 0 
: : im c utputs: : 
3 t39 775 1! - ‘ 3 
; 478 r76 1 ! Routine Value: 3 
3; 479 4. a G 3 
; 480 v8 1! Address of the storage. 3 
; 481 deme 3 
3 re 780 1! Side Effects: 3 
; 48 0781 1! 3 
3; 484 gree 1! None. 3 
; 485 0785 1! 3 
5 rt + Boe 1 !-- 3 
: 48 At BEGIN PF 
; 4488 0786 LOCAL 3 
; 489 787 T; 3 
; 490 788 3 
: «491 789 CA_AREA_( CA ); 3 
3; 49 0790 3 
; 49 0791 T = .CACCA_WRK_ADRI; ; 
3 494 1434 CACCA WRK_ADRJ = ,CACCA_WRK_ADR] + .AMT; ; 
> 495 079 IF .CACCATWRK_ADR] GTRA~.CACCA_WRK_END] ; 
3; 496 tae THEN 3 
: 497 795 BEGIN 3 
: 498 079 ERR_CNTL(O, SORS_WKAREA, (LOCAL X;X)); ! Insufficient work area $ 
: 4699 079 RETORN 0; 3 
; 500 0798 END; 3 
: 23) 0799 RETURN .T; 3 
; 502 0800 END; 3 
0004 00000 .ENTRY SASSPC_ALLOC, Save R2 : 3 
5 04 ge BROE SUBL2 P 3 3 
3 0128 cB 0 MOVAB 294(CA), RO : ; 
60 DO QO000A VL RO), : 3 
6 04 ae C 0000 ADDL2 AMT (80) é : 
012¢ «CB 60 01 00011 CMPL (ROS, 300(CA) : : 
11 1B 18 BLEQU. 1$ 3 3 
—E 0D 1 PUSHL SP 3 3 
001C815C F OD 1A PUSHL #1868124 3 3 

f D4 Bago CLRL -(SP) 3 

0000v CF 03 FB 000 CALLS #3, ECSERR_CNTL 3 


$1 


; Routine Size: 


48 bytes, 


50 


Routine Base: 


1 

1 
9% 11 7 BRB 
0 9 18 MOVL 
C RET 
50 D4 0002D 28 CLRL 
002F RET 


SORSRO_CODE + 041D 


15 
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v04=000 10388-1982 99:75:82 SORT32.SRCISRTSPCBLI.852;1 my (6) 


; 4 0) } GLOBAL ROUTINE SPC_HEAP( AMT ): CA_LINKAGE = 

: 506 08 1 144 

3 4 : } Functional Description: 

; 509 O8og 1! Allocate some sonpor ory storage from the work area, checking that we | 
; 219 O88 ! } don't exceed the end of the work area. 
: 54 0809 1 | Formal Parameters: 
3 218 0810 1! | 
3 315 OB : AMT Amount of storage to allocate, in bytes. | 
; 16 1 1 ! Implicit Inputs: 

: 517 oa, aie 4 

>; 518 0815 1 ! Implicit Outputs: 

: 519 pais 1! 

3 Seo 081 1 ! Routine Value: 

s Set 0818 1°! 

: > § 0819 1! Address of the storage. 

ca 0820 1! 

; ase 0821 1 ! Side Effects: 

; 32s 08 $ 1! 

; 258 08 1! None. 

s Ser 0824 1! 

; 328 0825 1 !-- 

3 44 0826 BEGIN 

: 530 0827 

: 531 0828 CA_AREA_( CA ); 

3 23§ 0829 

; 53 0830 CACCA_WRK_END] = .CALCA_WRK_END] - .AMT; 

; 534 0831 CACCA-WRK-ENDJ = .CACCATWRK-END] AND NOT 1; ! Word align 

; 535 0832 IF .CACCATWRK_ADR) GTRA~.CACCA_WRK_ENDJ 

; 536 083 THEN 

3 S57 0834 BEGIN . 

; 538 0835 ERR_CNTL(O, SORS_WKAREA, (LOCAL X;X)); ! Insufficient work area 

: 539 0836 3 RETORN 0; 

; 540 0837 END; 

; 541 0838 RETURN .CACCA_WRK_END); 

3 2eg 0839 

3; «6546 0840 1 END; 


0000 00000 ENTRY SHSSPC_HEAP, Save nothing ; 0801 
5E 04 C2 6000¢ SUBL2 #4 : 
50 013¢ CB H 000 OV 300(CA), RO : 0830 
60 i ¢ OOOA UBL2 AMT, (RO) : 
60 01 8A OOF BICB2 #1, (RO) > 0831 
60 0128 CB O01 1 CMPL egb(CA), (RO) : 0832 
11 1B 16 BLEGU 1$ ; 
E DD 0001 PUSHL SP : 0835 
001¢815C BF DD OOOIA PUSHL #1868124 ; 
0000v CF RPS 32 EATS #3. ECSERR.CNTL 
88 if BRB 23 se > 0836 


SRTSP Sep-1984 00:5 AX-1 =32 V4.0-74 Pp 19 SR 
y042000 1b-te Hts TT a CPE ee rs pets Te Oe 29e 6) vo 
50 012¢ «cB BO 9 1$: MOVE 300(CA), RO ; 0838 
50 b4 2$: CLRL = RO + 0840 
RET 3 


; Routine Size: 50 bytes, Routine Base: SORSRO_CODE + 044D 


SRTSP 1b-50 5ep-1984 00:53:54  VAX=11 Bliss-32 v4.0-7 p 0| 
y042000 Rts HT PM CP ee a tte ee age 90 


in range? 
GEQU ARSE THEN RETURN FAIL; 


> 545 41 1 GLOBAL ROUTINE CVT_ATB( ; 
: ‘3 t§ 1 BASE, ; 
: 56 45 1 N: REF VECT Torte). 3 
3 48 44 1 OUT_ADR: REF VECTOR )= $ 
3; 549 45 1 S44 3 
3 I r ! } Functional Description: ; 
; 0848 1! Converts ascii string to positive binary integer 3 
: 33g 0849 1 | thas —, : 
; 554 850 1 ! Formal Parameters: ; 
. 25 0851 1! 3 
3 2 526 1! BASE - Number base (2 - 10 or 16). ; 
3 5 1! IN - Address of Longtes oderens of input string. : 
3 228 Beee ! OUT_ADR = Address of word to store resultant binary number. : 
; 560 og28 1! Implicit Inputs: 3 
: 561 0857 1! 3 
; 206 0858 1 ! Implicit Outputs: 3 
; +56 0859 1! 3 
; 564 0860 1 ! Routine Value: 3 
; 565 0861 1! 3 
; 366 bees 1! SUCCESS 3 
3s 567 0865 1! FAIL j 
; 568 0864 1! 3 
; 569 Bae: 1 ! Side Effects: 3 
3 ore 866 1! 3 
s $71 0867 1! None. 3 
3 o7¢ 0868 1! 3 
an) ae 0869 1 !-- 3 
: 574 0870 BEGIN 3 
: 575 0871 3 
s 376 14 output_("cvt_atb'); 3 
; 577 087 3 
; 578 Bate ! bul ASAtOSS the output value 3 
; 579 0875 DRCO) = 0; 3 
; 580 Bare 3 
; 581 087 IF SINC_LENI LEQ 0 THEN RETURN FAIL; : 
3 2b¢ 0878 5 
5 28 + 144 WHILE TRUE DO 3 
: 584 0880 BEGIN F 
> 585 0881 LOCAL ; 
8 0 ! Get next digit 
3 ' Get nex 3 
3 389 5 NUM = LOWER_ (EHSRCHAR(. INC_PTRI)); é 
; 591 $ ' Convert ye a. : number 

3 35 3 SELECTONE . 

: 594 90 +e ‘0’ TO xc'9" NUM = .NUM = ZC'0'; 

; 595 91 zC’a’ TO C'f ft" NUM = .NUM = 2C’a’ + 10; 

: 35 OTHERWISE): RETURN FAIL; 

; 59 .] TES; 

; 598 94 

s 99 95 ' Is it 

; 600 I IF 5 NUM 

: 9 


S 
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v04= 14-Sep-1 SORT32.SRCISRISPCBLI.B32;1 
; 60 9 ! Multiply the result the radix and add in the number 
; 603 5 OUT_ADRLOJ = .OUT_ADRCO] * .BASE + .NUM; 
: oR? $01 Advance to next character | 
; gos 90 INC_PTR) = + INCPTR + 1; 
; 608 904 INC“LEN) = ,IN LEN - 1; 
: 609 905 IF cINC_LEN) LEG 0 THEN EXITLOOP; 
: 610 906 END: 
; 611 090 
: 612 908 RETURN SUCCESS 
; 61 909 
: 614 910 END; 
0004 00000 .ENTRY CASCVT_ATB, Save R2 3 0841 
OC BC D4 90002 CLRL OUT_ABR 3 0875 
50 08 AC bo 0000 MOVL IN, RO : 0877 
60 0D 90009 TSTL (RO) : 
47 15 00008 BLEQ 4$ : 
51 04 B80 9A 0000D 1$: MOVZBL @4(RO), NUM : 0885 
51 20 C8 00011 BISL2 #32, NUM : 
30 1 D1 00014 CMPL ; 0890 
0A 19 00017 BLSS : 
39 51 D1 00019 CMPL NUM, #57 : 
0° 14 0001C BGTR 2$ : 
51 0 C2 OO01E SUBL2 #48, NUM : 
16 11 00021 BRB : 
00000061 = &F 51 D1 00023 2$: CMPL NUM, #97 ; 0891 
28 19 0002A BLSS : 
00000066 = &F 1 D1 000 ¢ CMPL § NUM, #102 : 
1F 14 000 BGTR : 
51 AD = A1—sO9E: 90035 MOVAB -87(R1), NUM : 
04 AC 51 D1 90039 3$: CMPL -—~'NUM, BASE > 0896 
15 lg 0003p BGEQ : 
52 0c BC oe * ae 9003 MULL3 BASE, @OUT_ADR, R2 : 0899 
oc 3=—BC 52 51 C1 00045 ADDL NUM, R2, @0UT_ADR 3 
04 AO 0g 0004A INCL 4 (RO) : 0903 
Bp 60 F5 0004D SOBGTR (RO), 1$ : 0904 
0 01 pd 9050 MOVL #1, RO : 0908 
04 0005 RET : 
50 D4 00054 4$: CLRL RO : 0910 
04 00056 RET : 


; Routine Size: 87 bytes, Routine Base: SORSRO_CODE + 047F 
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3 618 4p ! GLOBAL ROUTINE GET_NEXT_SPEC( DESC: REF VECTORC3], SPC: REF VECTOR[3) ) = : 
: 918 318 1 44 $ 
3 032 aie } Functional Description: : 
; ? 1 b31$ i } Get the next specification. Specifications have one of the formats: : 
3; 6 : bas 1! /keyword...=...sub_specification 3 
3 ? ¢ Bai? : /keyword...=...(sub_specification_Llist) : 
; 626 0921 1! everything beyond the keyword is optional, and each ‘'.'’ represents a 3 
; 6e7 09 ¢ se Space. a null, or part of a comment. 3 
; 628 09 1! This routine returns the length/address of the sub_specification or 3 
; 74 0924 1! sub_specification_list. 3 
; 650 0925 1! 3 
; 631 0926 1! Formal Parameters: 3 
; O36 0927 1! 3 
3; $3 0928 1! DESC - Address of length/address/line of text to search. . : 
3 O32 44 4 1 SPC - Address to return length/pointer/Line of sub_specification : 
; 636 0931 1°! Implicit Inputs: 3 
; tH boas 1! 3 
; 638 0933 1 ! Implicit Outputs: 3 
3; 639 0934 1! 3 
; 640 0935 1! None. 3 
3; 641 b3a9 1! H 
: 64 0937 1 ! Routine Value: 3 
; 64 0938 1! 3 
3; 644 0939 1! keyword type 3 
3: 645 0940 1! 3 
3: 646 0941 1! Side Effects: 3 
: 647 R266 1! $ 
; 648 0943 1 !-- F 
3: 649 0944 BEGIN 3 
; 650 0945 3 
s 691 0946 CAL : 
$ $36 0947 2 KYW_TYPE, 3 
; 465 0948 FIRST_CHAR; 3 
3; 654 0949 3 
3 6609 0950 output_("get_next_spec'); 3 
3; 656 0951 § 3 
3 697 0336 ! Initialize output length 3 
; 658 095 SPCC_LEN) = 0; : 
3; 659 bgee 3 
; 660 955 ! Are we out sf input? 3 
: 093 6328 IF .DESCC_LENJ EQL 0 THEN RETURN KW_UNKN; : 
3 £08 958 ' Save the first character (‘'/''?) 3 
; re: 222 FIRST_CHAR = CHSRCHAR(.DESCC_PTRI); : 
: 666 0961 ! Move off of first character (°'/''?) : 
: 667 8206 DESCC_PTR] = .DESC -PTR) + 1; : 
3 $08 Be7 DESCC_LEN) = .DESCC_LEN) = 1; : 
; $96 965 ! Get the sub_specification or sub_spec_tist d : 
: 671 96 ' Note that is first character is not a slash we still want to F 
; 672 096 ! call get_sub_spec to move pointers appropriately. : 


ae ti 
ARSHWN OSEBHS RGU gh? ne 


; Routine Size: 42 bytes, Routine Base: SORSRO_CODE + 04D6 


000 aaRT$2e$ CISRTSPCBLI. 4 2:1 
; 673 96 ! 3 
: ore 444 KYW_TYPE = GET_SUB_SPEC( DESCCO], SPCLO) ); : 
; of8 48 IF .FIRST CHAR NEQ C_SLASH THEN RETURN KW_UNKN; PY 
; 678 378 RETURN .KYW_TYPE 3 
; 679 0974 3 
; 680 0975 END; 3 
0004 00000 e ENTRY GNSSGET_NEXT_SPEC, Save R2 : 0911 3 
08 BC D4 0000 CLRL asPc 3; 0953 3 
50 04 AC 00 0000 MOVL bESC, RO ; 0956 3 
6° DS 00009 TSTL (RO) : 3 
18 13 Bane BEQL 1$ 5 3 
52 04 BO 9A 00000 MOVZBL @4(RO), FIRST_CHAR ; 0959 $ 
04 AO D6 00011 INCL 4(RO) 3; 096 s 
60 D7 00014 DECL (RO) 3; 096 é 
08 aC OD bh: PUSHL SPC 3; 0969 3 
50 DD 00019 PUSHL RO 3 $ 
OO0OV CF 9s FB 00018 CALLS #2, GSS$GET_SUB_SPEC Cc $ 
2F 5 Di 00020 CMPL FIRST_ CHAR, #47~ ; 0971 3 
04 13 00023 BEQL 2$ 3 3 
50 41 8F 9A 00025 1$: MOVZBL #65, RO 3 3 
04 00029 2$: RET 3; 0975 : 
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o8¢ 9376 GLOBAL ROUTINE GET_SUB_SPEC( SPC: REF VECTORC3], SUB_SPC: REF VECTOR[3] ) = 
6 97 '++ 
? 5 $19 Functional Description: 
esr i ! Get the next sub_specification. Sub _specifications have the forms: 
689 9 : i keyword...=...sub_specification 
o20 baRe keyword...=...(sub_specification_Llist) 
69 94:43 i everything beyond the heqvore is optional, and each ''."’ represents a 
69 b38 : Space. a null, or part of a comment. c 
694 988 ; This routine returns the length/address of the sub_specification or 
695 0989 ; sub_specification_Llist. 
696 0990 : 
697 0991 ! Formal Parameters: 
698 099 : 
699 099 ‘ SPC - Address of Length /petaters< ine of first character of 
700 0994 ! keyword, modified to point to end of sub_specification. 
ep 444) SUB_SPC = Address to return length/pointer/Line of sub_specification 
70 0997 1! Implicit Inputs: 
04 0998 ' 
705 0999 ! Implicit Outputs: 
706 1000 : 
707 1001 ! None. 
708 100 : 
709 0 ' Routine Value: 
710 0 ‘ 
; } keyword type 
0 i Side Effects: 
0 ! 
0 len 
: BEGIN 
LOCAL 
KYW_TYPE; 


output_('get_sub_spec'); 


! Initialize ee Length 
SUB_SPCC_LEN] = 0; 


' Are we out of input 
IF_ .SPCC_LEN) EQL 


RETURN KW_UNKN; 


! Get the keyword type 
KYW_TYPE = GET_KYW_TYPE( SPCCO) ); 


Skip over ignored stuff. If nothing else, just return the keyword. 
if SKIP_IGNORED( SPCCO] ) EQL FAIL THEN RETURN .KYW_TYPE; 
! Check the character we're sitting on 
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H 133 19 ; IF PERS nal NEQ C_EQUAL 

3 ot) 13 5 ug HARES SPE PURI? NEQ C_COLON 

s 74 10 5 RETURN .KYW_TYPE; 

; 744 1038 

s 765 13 9 ! Move 2 inter ° f aft cae tte 

; Me 1040 sect Py j = .SPCt PIR] * 

s 747 1041 SPCE“LEN] = .SPC -CEN 

; 748 ek 

3; 749 104 ! Skip more ignored é ff 

3 P20 og IF SKIP_IGNORED( SPC 63 ) EQL FAIL THEN RETURN KW_UNKN; 
3 P36 bg ' Are we tb ips A a left Fer eeE ARN’. 

yee ¢ 104 IF CHSRCHAR(.SPCCE °P TRI) EQL C_L_PAREN 

3 136 1048 THEN 

s oo 1049 ! Then its a vith. spen Ithéatad Kio 

; 756 1050 BEGIN 

. or 1051 

; 758 1052 3 ! Move the ats ae ott of, the left parenthesis 
; 759 1053 3 spct PTR) = .SPCC_PTR) + 

; 760 1054 ; SPC “LENJ = .SPC “LENJ - 1; 

: 761 1055 

: 76 1056 3 ' Skip more ignored stuff 

3 ee 1O2e H 3F SKIP_IGNORED( SPCCOJ] ) EQL FAIL THEN RETURN KW_UNKN; 
; 765 1059 3 ' Start of sub wepee i sees ten 

; 766 1060 3 SUB ~$hCt PTR] PTR); 

: 767 1061 3 SUBSPCC-LINE] = She “LINES; 

; 768 1008 3 

; 769 1063 3 Get the corresponding right ,parenchests 
; 770 1064 3 if take RPAR( SPCCOJ ) EQL FAI 

: 771 1065 3 

5 a8, 1066 3 NRETURN KW_UNKN; 

: 77 1067 3 

: 776 1068 3 ' Calculate sub_ specification_Llist length 
; or? Hs 3 SUB_SPCC_LEN] = .SPCC_PTR] - =SuB SPCC OPTRA: 
s 777 1071 ! Move off of right £ parenthesis 

: 778 1072 Sct PTR) = -secf Pr yeh: 

; 779 107 SPC “LEN = .SPCC"LEN) - 1; 

; 780 1074 

; 781 1075 END 

; 78 1976 

s 7 107 ELSE 

3; «784 1078 

s 785 1079 BEGIN 

; 786 1080 

; 7 1081 SUB_SPCC_LINE] = .SPCC_LINE); 

; 788 1Os6 

; 789 108 ' Find the end of 6S. su “FEL ics et) 

: aa 1038 IF he STRING( SPCLO ba C FAIL 
; 79 1 O86 RETURN KW_UNKN; 

: 79 108 

3; 794 1088 END; 

; 795 1089 
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RETURN .KYW_TYPE 
0000v CF 
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; Routine Size: 


140 bytes, 


50 


Routine Base: 


D 16 
1e8eb-198¢ 13:10:54 — Egdarseesees 
55 BO 00088 48: — MOVL_—KYW_TYPE, RO 
RET 
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; 800 1093 1 ROUTINE FIND_RPAR( SPEC: REF VECTORC3] ) = 
; 801 1094 1 
; ote 1095 1 !+44 
; 80 1998 1 ! Functional Description: 
; 804 1097 1! 
; Bee 1928 : Find the next right parenthesis that isn't in quotes or comments 
; 807 1100 1 ! Formal Parameters: 
; 808 133) 1! 
3 B98 1108 : SPEC - Address of length/address/Line of the buffer. 
: 811 1104 1! Implicit Inputs: 
; oi¢ 1108 1! lone.” 
3; 8 1106 1! 
; 814 1107 1°! Implicit Outputs: 
; B15 1108 1! 
; 816 1109 1! None. 
s BIi7 1110 1! 
; 818 1111 1°! Routine Value: 
; 819 1336 1! 
; 820 111 “ SUCCESS 
3 Bel 11144 1°! FAIL 
3 Bs¢ 1118 17! 
; 82 1116 1 ! Side Effects: 
; 824 iia @ 
; 825 1118 1! 
: 826 1119 1 !<= 
3; Ger 1120 2 BEGIN 
; 828 1121 2 
F 4 1122 2 CAL : 
; 830 1123 2 PAREN_LEVEL, ! Parenthesis nesting level 
: 831 1124 2 QUOTE F, ' Quote flap 
3: 832 1125 2 COMMENT; ! Comment flag 
; 833 1126 2 
3; 834 1127 2 output_('find_rpar'); 
: 835 1128 2 
; 836 116? 2 PAREN_LEVEL = 0; ! Set the Root ne level to zero 
s 8357 1130 § QUOTE F = FALSE; ! Set the quote lag to false 
: ts Ne § ERT = FALSE; ! Set the comment flag to false 
; 840 1133 2 ! Find the next right parenthesis 
; 1134 ¢ WHILE TRUE DO 
3 Wee BEGIN 
3 1139 !' Are there more characters in input buffer? 
: 1138 IF .SPECC_LEN] LEQ 0 
: 846 1139 
: 47 1140 RETURN FAIL; 
: 848 1141 oe ie 
3; 849 1146 ! Check the character we're sitting on 
; 50 114 SELECTONE CHSRCHAR(.SPECC_PTRJ) OF 
3 51 1144 SET 
; 26 1145 
; 85 1148 CC_QUOTE): ' A quote 
: 54 114 
: 55 1168 4 BEGIN 
; 856 11 4 


16 
SRTSP Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 29 
v04-000 =300 71384 99770:80 EgORT 2.SRCIJSRTSPCBLI.B852;1 . as 
; 857 1150 4 ! Are we in a comment 
; 8 1151 4 IF NOT .COMMENT 
; 9 11 ¢ 4 THEN 
; 860 11 4 ! foagte the quote flag 
; 861 1154 4 QUOTE_F = NOT .QUOTE_F; 
3; & 1155 4 
; 86 11 § END; 
; 864 11 
; 865 1128 CC_NULL, C_LFJ: ! Null or Line feed indicates end of Line 
; 866 1159 4 
; 867 1160 4 IF NOT .QUOTE_F 
; 508 1161 4 THEN 
; 869 1106 2 BEGIN 
; 870 116 SPECC_LINE] = .SPECC_LINE) + 1; ! Bump Line number 
; 871 1164 5 COMMENT = FALSE; ! Not in a comment 
; 4G 1165 4 END; 
; 87 1166 END; 
; 874 1167 
; 875 1168 CC_LEXCLAM): ! Exclamation point 
; 876 1169 4 N 
s Orr 1170 4 IF NOT .QUOTE_F 
; 878 1171 4 TH 
; 879 1126 4 COMMENT = TRUE; ! Set the comment flag to true 
; 880 117 END; 
; 881 1174 
; «88 1175 CC_L_ PAREN): ! A left parenthesis 
: 88 1176 3 T If the comment flag and quote flag are both off then 
; 6884 1177 3 ! Increment the nesting level 
; 885 1178 3 IF NOT .COMMENT AND NOT .QUOTE_F 
; 886 1179 ; EN 
; 887 1180 PAREN_LEVEL = .PAREN_LEVE. + 1; 
; 888 1181 3 
; 889 1186 3 CC_R_PAREN): ! A right parenthesis 
; 890 1183 4 N 
; «891 1184 4 ! If both the comment flas snd quote flag are off and the 
3 $36 1185 4 ! Nesting level is zero then we're done 
; «89 1186 4 IF NOT .COMMENT AND NOT .QUOTE_F 
3: 894 1187 4 THEN : 
> 895 1188 4 ' Reduce the nesting level, checking for the end 
; 896 1189 4 iF (PAREN_LEVEL = .PAREN_LEVEL - 1) LSS 0 
; 897 1190 4 THEN 
: 898 1191 4 RETURN SUCCESS; 
; 899 1136 END; 
; o00 119 
; 1 1194 TES; 
3 308 1195 
; 90 1196 ! Increment pointer and decrement Length 
3; 904 1197 SPECC_PTR] = .SPEC ~PIR} o 73 
; 905 1198 SPECC_LENJ = .SPECC_LEN) - 1; 
3 B08 1199 
; 90 1200 END; 
: 908 1201 
; 909 1 8 RETURN FAIL 
; 910 1 8 
; (911 1204 END; 
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Routine Base: 


106 bytes, 


; Routine Size: 


CE 
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output_("skip_ignored'); 
COMMENT = FALSE; 
! Skip prone all the ignored stuff 


> GLOBAL ROUTINE SKIP_IGNORED( DESC: REF VECTORC3] ) = 
915 'e¢ 
318 Functional Description: 
S18 ! Get the next character, ignoring blanks, nulls, and comments 
g Y 1 Formal Parameters: 
2 § : DESC - Address of Length/address/Line to search. 
924 1 Implicit Inputs: 
3 1g 1 | tno outpu 
mplic utputs: 
997 19 13 4 
928 i Routine Value: 
929 i 
930 i SUCCESS : : 
Bt FAIL - If run out of buffer before significant character is found. 
338 i Side Effects: 
934 ! 
935 ine 
936 BEGIN 
937 
938 LOCAL 
939 COMMENT; ! Comment flag 
940 3 
3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
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946 WHILE T 

eee BEG! 

949 ' Are there more characters in input buffer? 

950 = -DESCC_LENJ LEQ 0 

951 HEN 

326 RETURN FAIL; 

95 4 

954 4 heck the character we're sit eth ng on 

955 4 SELECTONE CHSRCHAR(, DESCL. PTR RI) 

36 “A 

958 5 CC_SPACE, C_TAB, C_CR): ! Space, tab, or carriage return 

333 ; 0; i Do nothin ng 

961 5 CC_NULL, C_LFJ: ' Null, Line feed indicates end of Line 
96¢ 5 BEGIN ~ 

96 5 DESCC_LINE) = .DESCC_LINE] + 1; ' Bump the Line number 
964 5 COMMERT = FALSE; i Not in a comment 

965 5 END; 

309 2 CC_EXCLAM]: ' Exclamation point 

3e8 ° COMMENT = TRUE; ! In a comment 
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Is ther 
NOT COMMENT THEN RETURN SUCCESS; 
i 
°D 
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COTHERWISE): 
IF T 


TES; 


RETURN FAIL 
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GLOBAL ROUTINE SKIP_COMMA( DESC: REF VECTOR(3] ) = 


44 
! Functional Description: 


Get the next character, ignoring blanks, nulls, comments, and commas 
Formal Parameters: 

DESC - Address of length/address/Line to search. 
Implicit Inputs: 

None. 


Implicit Outputs: 
None. 

Routine Value: 
acess 


Side Effects: 


BEGIN 


LOCAL 
FLAG; ! Found, not found flag 


output_("skip_comma'); 
IF SKIP_IGNORED( DESCCO] ) EQL FAIL THEN RETURN FAIL; 
IF CHSRCHAR(.DESCC_PTRJ) NEQ C_COMMA THEN RETURN FAIL; 


DESCCL_PTR) = titiotiy $1; 
DESCL_LEN] = .DESCC_LENJ - 1; 


IF SKIP_IGNORED( DESCCO] ) EQL FAIL THEN RETURN FAIL; 
RETURN SUCCESS; 
END; 


SSKIP_COMMA, Save R2 
SC, R2 


SC 
i 
#1, SISSKIP_IGNORED 
RO 
1$ 
a4 


(R2), #44 
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44 bytes, Routine Base: 


; Routine Size: 
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GLOBAL ROUTINE GET_KYW_TYPE( DESC: REF VECTORC3] ) = 
lee 


Functional Description: 
Get the next keyword 
Formal Parameters: 
DESC = Address of length/address 
Implicit Inputs: 
None. 


None. 
Routine Value: 
Code for specification file keyword or KW_UNKN 
! Side Effects: 


i 
i 
i 
i 
i 
! 

i 
i 
i 
' 
Implicit Outputs: 
i 
i 
i 
' 

' 

' 

i 
i] 
* 


BEGIN 
OCAL 
STRING: VECTOR(3), ! Local constant length/address to input string 
KYW_TYPE; ! Keyword type 
output_("get_kyw_type'); 


! Get the keyword string 
A ae ( DESCCOJ, STRINGCO] ) EQL FAIL 


RETURN KW_UNKN; 
KYW_TYPE = KW_UNKN; 
Run through all the spec file keywords 
INCR_IN FROM 0 TO KW_UNKN-1 DO 

BEGIN 


CAL 
KYW: REF V 


Ec TORE BYTE ! Address of a keyword : 
PTR: REF VECTORC,BYTE); ! Local pointer to input string 
! Initialize pe local pointer to input string 

PTR = .STRINGC_PTRI; 

! Get the address of the next keyword 

KYW = SRTWROC.WROOFFC.INJ]; 

! Is the input string shorter than the keyword 

IF .STRINGC_LEN] LEQU CHSRCHAR_A( KYW ) 


aan 


Mm 16 
SRTSPC 16-Sep-1984 53:54 AX-11 Bliss-32 V4.0-74 
v04-000 12-88-1382 9 33:34 SORT32.SRCIJSRTSPCBLI.B 2;1 
; 1088 1378 3 THEN 
3; 1089 1 8 4 BEGIN 
; 1999 i 5 ¢ ' Do the k d and the input stri 
: o the keyword an e input string, 
3 1032 1 é 4 i teonvertes to upper case)’ natch? ° 
3; 109 1 4 i 
3: 1094 1384 2 IF BEGIN 
; 1095 1385 DECR count ‘ent sSTRINGE set 
3 1996 1 38 LOWER ly -COUNT)) NEQ [oweres  KYWC. COUNT) 
3; 109 1387 then fe TLOOP 
3; 1098 1388 
3 1099 1389 4 THEN 
3 1100 1390 BEGIN 
: 1101 1391 
3 1106 1 4 ' We are done if it was an exact match 
; 110 1393 5 ' Note that we must check for an exact match before checkin 
3 1104 1394 5 ! for ie a merwatee since some an rag (namely, ASCI 
3 1105 1395 5 ' and LE) py 4, are* xes for other peywords Ss. 
3: 1106 1 96 5 if .STRINGC_LEN) EQL .KYWC-1) THEN RETUR 
3 1107 133 : 
3; 1108 1398 ! Ambiguous keyword? 
3 1109 1399 5 IF .KYW_TYPE NEQ KW_UNKN THEN RETURN KW _UNKN; 
31110 1400 5 
31111 1401 5 ' Set the i type 
; Wii¢ 1006 5 KYW_ TYPE 
3 111 1403 5 
3 1114 1404 4 END; 
31115 1405 4 
3 1116 1406 3 END; 
3 1117 1407 3 
3 1118 1408 § END; 
3 1119 1409 
: 1120 1410 2 ' Return the keyword 
3 1121 1411 § ! 
3: 1122 et RETURN .KYW_TYPE; 
: 1123 1413 2 
3 1124 1414 1 END; 
007C¢ 00000 ENTRY GKTSGET_KYW_TYPE, Save R2,R3,R4,R5,R6 
5E oc C2 it SUBL2 #12, SP 
E 00d 0000 PUSHL 
04 AC OD std PUSHL DESC 
0000v CF O¢ FB QOOOA CALLS #2, GSS$GET_STRING 
D Beot TSTL R 
50 13 00011 BEQL 5$ 
56 41 8F 9A Oats MOVZBL ve KYW_TYPE 
54 D4 id CLRL 
53 04 AE 00 31? 1$ MOVL STRING*4, PTR 
50 F973 CF 9E 0001 MOVAB SRT Ro 
51 FB8D CF44 ¢ 00 MOVZWL SRDOFF CIN KYW 
51 50 5 0 ADDL2 YW 
28 81 9A 00028 MOVZBL (kYW)+, RO 
5 6E— D1 0002E CMPL STRING, RO 


roel 
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38 (1A BGTRU 7$ 
50 ‘ 0 MOVL TRING, COUNT 
i BREE 
5 6043 9A 2$: MOVZBL Hie UNT) CPTRI, RS 
2 £8 ¢ BISL 
; 6041 a 9 is itt L i R2 
g D1 46 CMPL =R5, R2 
6 12 0004 BNEQG 7$ 
EA F4 00048 3$: SOBGEQ COUNT 
6E FF OA 08 i i aE CMPZV #0, 4b, ea, STRING 
50 4 p 0036 MOVL ih. RO 
4 0005 RET 
00000041 = 8F 56 D4 O05, 4$: CPL kyW_TYPE, #65 
50 41 8 9h 0063 5$: MOV ZBL #65, RO 
56 54 00 Benes gs: MOVL IN, KYW_TYPE 
Ab 54 00000040 8F F3 00 $8 $: AOBLEQ #64, IN’ 1$ 
50 56 b0 00075 MOVL KYW.TYPE, RO 


; Routine Size: 119 bytes, Routine Base: SORSRO_CODE + 066C 
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GLOBAL ROUTINE GET_STRING( DESC: REF VECTORC3), STRING: REF VECTOR[3) ) = 


44 
Functional Description: 


Get the string of contiguous significant characters in DESC. 
(Anything inside quotes is significant.) 


Formal Parameters: 


DESC - Address of length/address to search 
STRING = Address of stored Length/address of string. 


Implicit Inputs: 
None. 


None. 
Routine Value: 
SUCCESS 
FAIL 


Side Effects: 


i 
i 
i 
i 
i 
i 
i 
| 
i 
i 
i 
; Implicit Outputs: 
i 
' 
i 
i 
i 
i 
' 
i 
i 
le 


BEGIN 
LOCAL 
QUOTED, ' Are we in a quote 
LENGTH; ! Length of the found string 


output_("get_string'); 
QUOTED = FALSE; 
! Initialize length 
LENGTH = 0; 
et pointer to string 
Inct PTR = .DESCC_PTRI; 
INGC“LINE) = .DESCE_LINE); 
nd the string 

TRUE DO 


IF .DESCC_LEN] LEQ 0 THEN EXITLOOP; ! Out of input 
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144 
Functional Description: 


Get the character clause within DESC. 


This is of the form: 
{sidisdashs i: {sitddeq{sitddiC€sid dC lt i gtds} 


Formal Parameters: 


DESC Address of length/address of the text. 
CH4 Address to place up to four characters (0 thru 3). 
O-1 = First character. 
Single character or 
first character of double character or 
first character of range. 
2-3 = Second character. 
Same as first character if return value is SINGLE, or 
second character of definition or 
second character of range. 


MrMOPOTURONoPoTnononofnononopefronofpeororororornnony 


Implicit Inputs: 


Sn > ~aaamanaetng ona ies 
MEW —OOODNOULS WN —“OVDONOULSWN—O0O~ 


None. 
Implicit Outputs: 


POPUPOPOPUNOPoPoProrfnony: 


ed ed ed ed ad ed od dd dd 
a et ee et eee 


a a ee a ae ee ee ee ee ee ee ee ee ee a td ed 
Ne ee eee ee aaah sh Abb Ab dh Ab Ab ab dh Ah ah ah ah dh ab ah ah ah ahah ah a ah ah a hah ah ae tee De De tee 
=—OOONO UE WN 0 OONO UE WIN 0 OOD NAU EWN SO ODOVNOAUS WD OOONOAUE WN OOONOU 


DUDE BEEBE EEE FAWN NWA GRIDIPODINPININININID) 9 I OS SS SOQOOOOOOCOOCOCOVOOOWO 


PROPOPOPOPOPONOPONONONINIDY 2 9 


$ 
8 None. 
39 
rt Routine Value: 
4g FAIL invalid clause 
4 GC_SINGLE <single> 
44 GC_DOUBLE <double> 
45 GC_S_TO_S <single> - <single> 
1246 GC_x_op_y 
1247 
1248 Side Effects: 
1249 
1 29 ~-- 
1251 BEGIN 
1 26 
125 LOCAL 
{ 30 CHAR1, CHAR2, OP; 
1256 ZIF GC_SINGLE NEQ 1 XTHEN 2WARN(‘Error in GET_CHAR_CLAUSE') ZFI 
} rH ZIF GC_DOUBLE NEQ 2 ZTHEN 2WARN('Error in GET_CHAR_CLAUSE') 2F1 
1259 CRO 
1260 i. ADVANCE _(X) = 
1261 fd BEGIN 
1 66 t XC_PTR] = .XC_PTR] + 1; 
126 M XC“LEN) = .XC"LEN) - 1; 


Sete Se Se Se Ge ee Se Se ee Se Se Se Se Se Se Se Fe Se Se te ae 


SRTSPC 18-sep-1984 90:33:34 vane Bliss-32 PA ley Page SR 
v04-000 14-Sep-1984 15:10:54 CSORT 2.SRCISRTSPCALI .B 231 as vo 
END %; 


output_("get_char_clause'); 


' Get the first gharecterte) 
CHAR = GET ONE CHAR( DESCLOJ, CH4C0) ); 
A4 97: 


CH4 e aE 
CH4 S = .CH4 
IF .CHAR1 EQL FAIL THEN RETURN FAIL; 
IF SKIP_IGNORED( DESCCO] ) EQL FAIL THEN RETURN .CHAR1; 
SELECT CHSRCHAR( .DESCC_PTRI) OF 
C_DASH, C_EQUAL, C_LESS, C_GREATER]: ! Need another character(s) 
ADVANCE _ (DESC); ! Move otf of aereeter 
CHAR2 = get ONE_CHAR( DESCCOJ, CH4E2] ); 
F .CHAR2 EGL FAIL THEN RETURN FAIL; 


FUSS 
FIFI 
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OP = By 08": 
CC_GREATER: 

OP = %B'01'; 
CC_LESS, C_EQUAL GREATER): 
T 


ND: 
85 COTHERWISE): 

86 RETURN .CHAR1; 

87 CC_DASH): 

88 GIN 

89 IF NOT (.CHAR1 EQL 1 AND .CHAR2 EQL 1) THEN RETURN FAIL; 
90 RETURN GC_S_TO_S; 

9 ND; 

9 CC_LESS): 

9 OP = %B'11"; 

; CC_EQUAL): 

9 

9 

9 


¢ 
RETURN GC_(.CHAR1,.OP,.CHAR2); 


RETURN FAIL; 
END; 
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007¢ 000 .ENTRY GCCS$GET_CHAR_CLAUSE, Save R2,R3,R4,R5.R6 ; 1495 
52 04 ac 7D 0000 MOV DESC, R + 1557 
BB 000 PUSHR #4M<R2,R3> ; 
0000v ct F CALLS #2, GOCSGET_ONE_CHAR : 
D p V RO. CHARI ; 
oe As 8 1 mMOVW =: (R$), 2(R3) : 1558 
6 p 14 TSTL CHARI > 1561 
16 Q : 
dd 0001 PUSHL R + 1563 
FE88 CF Fe 1A CALLS #1, SISSKIP_IGNORED : 
0 D 1F TSTL RO F 
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; Routine Size: 
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-Sep-1 4 SORTS2. SRTSPCBLI.B52;1 (16) 


$ GLOBAL ROUTINE GET_ONE_CHAR( 
DESC: REF VECTORE SJ 
CH2: REF VECTORE2,BYTE) ) = 


'e4 
' Functional Description: 


Get the character or double character within DESC. 


This is of the form: 
{ char {| char char } 


2 I IOOOO 


NOUS WN —OODONIOU LS WO 0OMW 


Where char is of the form: 
{ <quoted-string> | %<base><digits> | <character> } 


Formal Parameters: 


DESC Address of length/address for 
remaining chars/address of first character of the keyword 
CH2 Address of two characters. 
0 = First character. 
Single character or 
first character of double character. 


WWNWAWAWA NWN AW WANA NAAN ANA AAA ANA 
ee Fr II AI A A I PROROPOROPOROPOROPORD 


FHF FW MMIII WIP PRIPIDINPININININIDS 2 9 I SS | “QOOCOOOOOCOCOOOOOOWOO 


3:1 1593 1 
3; 3 1594 1 
7 1898 
; 3 1 5 1 
3} 1 8 1 
3 7 1 1 
7 1600 1 
3; 3 1601 1 
3% 16 ¢ 1 
7 16 1 
3 3 1604 1 
33 1605 1 
3 1 16 ° 1 
3 7 16 1 
3 7 1608 1 
3% 1609 1 
3 1 1610 1 
3; 3 1611 1 
3; 3 16 § 1 
3 Y 16 1 
1398 11s 4 
3: 1329 1616 1 1 = Second character. 
3; 1330 1617 1 Same as first character if return value GC_SINGLE, or 
3 : 1 8 ! second character of double character. 
s 1 § 1620 1 Implicit Inputs: 
: 1334 1621 1 
dg ie tee 
3; 1337 1624 1 Implicit Outputs: 
; 1338 1625 1 
ihe teas 
: : 1 1 3 : Routine Value: 
3 1 § 1630 1 Number of characters found, any more than two is considered an 
3 error 
Re 
3 1346 16 : 1 ! Side Effects: 
3: 1347 1634 1 
3: 1348 1635 1 !-= 
3 1349 16 § BEGIN 
3; 1350 16 
BE TBE Bag 
3 : 33 9 9 air. VECTORC3), 
3 : $5 1 § NUM_CHARS; ! Number of characters found 
Hey igs gf Mowage en - 
71 35 Hi 1646 xt PTR} = XE PIR] +1; 
3 1 M 164 x LEN = .XC_LEN) = 1; 
: 1361 1968 END 2; 
3; 1362 164 


1 
SRTSPC tbese =1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 45 
v04-000 1 ~3007 138% 90:85 8e SORT32.SRCISRTSPCBLI.B52;1 . (16) 
; 1363 1650 output_("get_one_char'); 
: 1364 1651 
3; 1365 16 NUM_CHARS = 0; 
3 ! 98 1? IF SKIP_IGNORED( DESCCO] ) EQL FAIL THEN RETURN FAIL; 
; 1368 19 5 ! While there are more characters ‘ 
: 1369 1 8 WHILE .DESCC_LENJ GTR 0 DO : 
1355 1888 —r ; 
. 4% ue 1659 SELECTONE CHSRCHAR(.DESCC_PTRI) OF ; 
: 137 1660 SET : 
3 1374 199) ; 
: 1375 1 96 CC_SPACE, C_TABI: ! Skip it : 
3; 1376 16 4 N 3 
3: 1377 1664 4 ADVANCE_(DESC); ; 
3; 1378 1665 END; 3 
3: 1379 1996 3 
; 1380 166 CC_PERCENT): ! We have octal, hex, or decimal ; 
: 1381 1668 4 BEGIN ; 
3; 1 HG 1669 4 3 
; 138 1670 4 ADVANCE_ (DESC); ! Look at the next character : 
; eee 1671 4 
3; 1385 1626 4 ! Out of ineus? 
3; 1386 16735 4 IF .DESCC_LEN] LEQ 0 
3; 1387 1674 4 HEN 
3 1388 1675 4 EXITLOOP; 
3; 1389 1976 4 
3 1330 1677 4 ! Find out what base, lower case it 
> 1391 1678 4 BASE = LOWER_(CHSRCHAR(.DESCC_PTR)); 
3 1338 1679 4 
3; 139 1680 4 ' Convert base character to number 
3 1394 1681 4 SELECTONE .BASE OF 
3: 1395 1o84 4 ET 
5 1308 16835 4 C_DEC): BASE = 10; ' Decimal 
3 1397 1684 4 C_OCcTI: BASE = 8; ! Octa 
; 1398 1685 4 C"HEX]: _ BASE = 16; i Hexidecimal 
3; 1399 1686 4 OTHERWISE]: RETURN FAIL; ! Bad base 
3: 1400 et 4 TES; 
3 1401 1688 4 
3 1406 1689 4 ' Move off of the base character 
: 140 1690 4 ADVANCE_(DESC); 
3 1404 1691 4 
3; 1405 1696 4 ! Get the number in character string form 
3 1ons 1693 4 STRE_LEN) = 0; 
> 140 1694 4 STRE-PTRI = .OESCL PIRI: 
3 1408 1695 4 WHILE .DESCC_LEN] GTR O DO 
3: 1409 1998 BEGIN 
3 1410 169 SELECTONE CHSRCHAR(.DESCC_PTRI) OF 
3 1411 1698 4 
: 1ei¢ 1999 cC'O" TO ee ZC'A' TO 2C°F*, &C'a® VO XC'F'I: 0; 
: 141 1 OTHERWISE]: EX{TLOOP; 
3 1414 1701 TES; 
3 1415 17 ; TRC_LEN] = .STRC_LEN] + 1; 
3 1618 17 ADVARCE_ (DESC); 
3 141 1704 4 D; 
; 1418 1705 4 If .STRE_LEN] EQL 0 THEN RETURN FAIL; 
: 1419 1706 4 


K 1 
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1420 ' Get the number 
: 1 IF CVT_ATB( .BASE, STRCOJ, VALUE ) EQL FAIL THEN RETURN FAIL; 
: IF .VALUE GTRU 255 THEN RETURN FAIL; 
425 ! Put value in appropriate e(s) 
426 IF Gyn CHR? ise} PEN €Hbt 8S = ,VALUE; 
427 CH2t1] = .VALUE; 

§ NUM_CHARS = .NUM_CHARS + 1; 

: END; 

§ CC_QUOTE): ! Quoted string 

BEGIN 

4 LOCAL 

5 

6 


Q_ CNT = 1; ' We have seen one gyese 
ABVANCE_ (DESC); ! Advance past the first quote 


Keep scanning characters until we are through with the string 
WHILE TRUE DO 
BEGIN 


if LGNOACHAR( .DESCE_PTA) EQL C_QUOTE 
Q_CNT = .Q_CNT + 1 

ELSE 
IF NOT .Q_CNT THEN EXITLOOP; 

IF .Q_CNT 

THE 
BEGIN 
Emit the current character 
CH201) = CHSRCHAR( -DESCL PIRI). 


IF .NUM_CHARS EQL 0 THEN CH2L0) = .CH2C1); 
NUM_CHARS = .NUM_CHARS + 1; 


ADVANCE_(DESC); 
END; 
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END; 
4 
46 CC_EQUAL,C_GREATER,C_LESS,C_DASH,C_L_PAREN,C_R_PAREN, 
46 €_CF.C_cR,¢_RULL, _COMMA, CTERCLAM] : 
46 ! Reserved character so must be done 
$f EXITLOOP; 
47 6 1585 8 xc 
ot? ; 29 CXC°A’ TO 2C°Z*, XC*a® TO XC'z'}): |! A valid unquoted character 
475 C 66 ~ CH201) = CHSRCHAR( me itean tit 
476 € 176 IF .NUM_CHARS EQL 6 THEN"CH2LO) = .CH201); 


oO 
veo 
ao 
“Yt 
po 
=o 
"> 


! A valid unquoted character 


*. 
- 
a 
wo” 
a 
4 
= 
vw 
‘ 
= 
Dee 
an 
we 
“” ce 
uw — 
a — 
nw < 
at wm 
—<w Cn | NN 
xw wa 
vz “Ma Ls 4 ” 
ee 3 —- © & 
=>a 3e ou <« 
2altz aw — = 
2aw woe ” « wow 
= . = ' 
i ” 9 = 
oO w _-_ —_- = 
ws ,e «&ea 
ce . = s 
a = = 
Zz eodw2z 
w C2 ec « 
o-z —_— = 
ao w - a 
wrt w 2 
-—— = w 
re 
~~ 
OVE EPPO CIC 


TNO DOOM UM TMNOP-DOOe-w 
OOOOOOPR-P-P-P-P-P-P-P-P- COCO 
Ded ed nd ed nd ed nd ed nd ed ed ed ed dd ed 
LLL LLL LLL OOO 


YUU 


~-OCOoOK-wmM~aTwN DOonrwmM Tw 
~r-r-cOccd0wan OGD OO A OP OO 
a a ee oe eo a ee ee a aX aX aX EX EX 
LLL LOCO 


S oR S223 $25 2£ 28 
mw ovo oo ovo “Co Ooo “oo oO CO 
ee -e eer- Fe r- ee ref lc hw 
i i ie Ee Ee i ea te te et te te ee eh ee eh eh eh eh eh hd od a dd oe oe oe ed 
w 
a 
*. 
wT 
< 
a 
~m 
< 
. 
N 
a 
a 
> 
@ 
” a 
us 
. [: 4 
< oa 
<= z 
= oO 
Vv _ 
tv a [vey 
ws a w” 
2 -_ o < oOo 
o w be 4 N a QOwo w 
‘ion wo t+ 4 Ae 
a<c * . N ~ <—=2 <« 
nox — es “Oo Mm ~~” ~@w @w 
uw -s Ww ~~ Ne @ Se ~N . 
. & m= ce an a7 a wa > 
. acm ~ + . ann arm ford 


ae bd ” 
—OPANMNY CHOOCKHOCSKHETEHOOH— CEH - OM LH— 
Sot SQM tH. BET IN ~~ MZOU~Y~~- OM Be2qaoz 


-ENTRY GOCSGET 
#16 
NUM 
gs 


~ on 2 @ arm 
a > eT | 4AjQGn@OI@O0C4Yy OY Jue NIIOY 
OSH Jew Sew O08 WOU SI BV Ur 3B OHA oo 
23 4josD<«uZzconw et tet tet ty tet + tet Ppt Hy} 
MVEA OOZ-OZVOVCO—COvOO—oaweasztoOvrazo 
PA o> A od ft A 
—CP Dg wo ont @ 


SOOCOCOCOOSOOSOCOSO SOOO SOOOSOOOOOOOOSO 


QUT SO BONN WNW EME NOR OEM OP- ST LOO NO 
+ ‘crc OK MA OK OOK OK— COOK OK MAAK MOV as oe 
oOo 
OM —- OM QMMOWMOMO OOIMDOM DuMrinrir- VOW 
KNINOWMOM a See Cea 
- - 


o o o 


w wT So S 
o So o o 


wey we un 6 6«cOO lhCUO Ww vTwwu. ww 
wn wow wo mo ~w N mne ww 
(=) wT 

“ eo 

$ 3 

~ So 

So 

i=) 

So 


88251 


SRCISRTSPCBLI. 


fBiis =32 V4.0-74 


USoat 


4 
4 


ep-19Be $$:1035 


1 
“$ 
at) 


r 


SRTSPC 
v04-000 


oo o «mm rT woo w-wh Ww oh 
oO - =- - SNe TN lM 
i ~ ™~ ye -eoOo~ Ee Ee 
- - -— r- Se SEr eK eK EK lhe 
et oe ee ee ee ee ee ee ee ee ee ee ee ee ee oe ee oe ee oe ee ee ee ee ee ee ee ee ee et ee eet et oe oe ot oP ee er oP er er ee ee, ee ee ee ee ee 
@ 
— 
<< _ 
wT 7 wo uu Oo —T 
- o + So _ vay = «= ~~ 
- Nu Ww a e > nN we Yew -_ E> 
- we Ww bee ~N rs) = «= @® -a< z 
it Benty ae 2 a a ae 2 See nas A 
~~ - . . ~~ 
> @ _ N= 2= 2&=& 2&=& 2&= ® =) wow we 8 Gg Nu 
w w ae ee ln i n° 4 an ws = 5 = ts 8 rata? 4 z 
ANA PO OUVMEZCUMeA~ FB PF PF PH PM MIM *OTH F€H + HHUA S33 7E9 A KUM~RUwW 
LOO— aH CST TOCOMOM OTF OMOVOO OFZ eveNeh. 0A —- EMOOWELO <t<tosroeenacgcom m 
@O-- Be Or BY SY OS OE EE EE YS Hh KH VMK VV ORE R—M SP — ZV SVS ZVEVa~~ awvaw 
Fe) 2 
eS 2 2 3 2 2 2 a 1) => 
4a464 JjOIgittsiIititjgonoavagagoqoavqdoqmauv oes ss TtrrTIisd jesecodo@-i Sg neces 
OAwr O60 wrVed Se WP. MO.wW0 0 WwW 0 OVO ONO Sr ww 30 ee Oo oom wees ese 
EZZOeCstZO Sw JOM JOFsz IME IE ME IE ITO VSZwevwwdsTDT Te vV™acTEoOMWVOCOCO Zest ZO Zws Zz 
VOZTOLOE OVE OF VCOVCOCOVOVCOCO “46 0r- M000 0-O00O>-OEFEZZ—-OvrOEZ—-OV7O—@ 
PP A Sf A fF A iam AAD Coad oa hy 
Sad o - N m wT w wo oo o - N 
oa _— _- - - - - - -—— ~ ~N ~~ 
Qu Coorcvt-O VON sTOOa VwWWNTO ft OL MOO Oe TF OD OWNS ODVOT OD DOOWT OEY 
RSSSSRN NNR Sow OOOOO << fee eC OMOODOMDOMOMOCVOCV COCA COWWWWWW eee 


SOoOGSOSOSOOSSOSOSOSOSSSSSSSOSSSOSSSSSSSOSSSSOSOOSCSOSOSOSSSSSOSOSSOSOSSSOSSS 
SOOOCCOOCOOCOOOOOOOOOOCOoOoOo OOOGOOSCOOCOCOSOOCOCSOOSOOOOOOOOOOOOOSOOSoSOS 


—NO— — NOOO TF QOWN 6 we Oe OM LOOP NM Ou. COON — INF OOOO KK VO OK WO 
OO OF GOSH HSHh KOO KOK OK OK OKO OOO OK OO OU OK MAK OK OOOO O-— OO AaO—- Oo 


TWD OT TFT OCIM WON & VMOWMO DO WO VOLO WIN OW WL LWT MOM OWT IAT WO UWUINOO & CUMIN OO 
NOOOWN F< — OVW LOWMUDNOWMNOMOMOOWMOS LOO V LOM CNOMODOUMNOVO LOM - MOOV DONO 


So 
o 
w Oo wT Tr @® t<] oS 
oO oOo o oe  & Co oS 
_ Fe ww w ooc°ctk eK wu & & ve - voo Ne ~N 
aowewo ww <= woaenm oso © wo wo r=) co onc Nw N 
om co co - Oo - O al “ o - 
~o ~ Oo Tr vs O OO a “ co Oo 
So Oo fs) So 
So So “ oS 
o o So 
So o oS 
o So [=] 
Oo o o 


-~ oO Ovww woo. “oo ww 
oOo mM Ms + www ~- © @o 
- ee RF rer ~~ em 
we Pf FEF & ere ef &- 
Pete FS FS FS Fe FSFE FS FSFE FS FS FS FS FS TS FS FSS SS SS HS HSCS FS SS HTS SSCS HS FE FE He Fe Oe 
oa Nu SO 
o = = 
a ~~ 
~aFk ~~ oOo . a 
oN =—Y Ew nw 
Nu c< ~a <ze 
o -< 7 om mor ww oO nw <€« 
. SS: oe 2 x= re —-e mer Tw Tr Tr OO Ft TF 
—-— —§ NO AY = 2=& = 2 2&=® 2&® 2 2&® B® VY WY 
Zz 2&2waziiot q t 
VY UN~YZeHEEAH PH HP GH HF GH GH GH PH GH WEST 
wm COoOdre~ DVO O- Or O- OC O- OOO ONMOoONMaNSD CO 
BMGBVBEZN— ZVUAEMAMAaMaEMavamMamMmamamamnmsnis a 
- - = ee = Be. 
O 84049004 jusuOisodisiOstOveaomveoqcoav@aewew 
@O3O0> > wr>Vv@-0000000040MOw04MOAw0MOrare>-aore 
af JOOMVM ZO ZeEVOws ws wktwst is sis t= IZ IZOZVOw sw 
OOOZ SOF OF OLVCOVOVlOVOV OV OVOvVOVOvOEoeve 
ASD? 6 oD ea A eo Sad oe A 
MTNO ~- oO o oO — N 
cucucucu Nu GN ~N ~~» al ~m 


“ss DBOWTO LVWOMNGD £ OLS O OW MOD WOON OD 
IIOP SF SF SF FT TOA 


ee ne ee ee ee eee eee eee fo lolelololelololololololo) 
fe ae nee ew ee we we we ew www lolol oleae lolololololeleolololololo) 


DO— DOOM ORM MEM Me te OM Or eee Ce Or 
UPNWOCO-—O OK On One Or Oe On Oe On Oe Or On O-OOaoO 
POA VOMNTOWM~ TO OODOMOWOMOTFTOMO ZLOWOOM TN CO 
MN WNT DNO BN OWMCANAUANCUN EE NOM NOMOWMOMOMOWM WN 
“u 


- 
o 


00 


06 
60 
OA 
0D 
21 
28 
29 
2c 
2D 
3¢ 
3E 
02 
50 


SORSRO_CODE + O7E8 


Routine Base: 


345 bytes, 


v 
N 
- 
” 
vy 
c 
= 
com 
Ss 
° 
=< 
+. 


eon 
ov 


16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 P 0 
14-Sep- 3B 00:33:24 YeoRT 2.SRCISRTISPCBLI.B32;1 age 43 
GLOBAL ROUTINE SEARCH_TABLE 
STRING: REF VECTORE J: 
INDEX: REF VECTOR » 
: REF SYM_TABC), 


= 
144 
Functional Description: 


Search through a table to find a match with an input string. 
' Formal Parameters: 
STRING = Address of length/address of the input string. 
INDEX = Address to store index of matching table entry. 
TABLE = Address of the table. 
COUNT = The number of entries in the table 
Implicit Inputs: 
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; Implicit Outputs: 
; Routine Value: 
i 
i 
' 
i 
' 
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i 
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SUCCESS 
FAIL 
' Side Effects: 
2 INDEX is set to the index of the matching table entry. 
BEGIN 
LOCAL 
ITEM: VECTOR(2), ! Length/address of table item 
INP ! Pointer to input string 
MATCH; ! Match flag 


output_(‘search_table'); 
If input string Length is zero return fail 
IF .STRINGC_LEN] LEQ 0 THEN RETURN FAIL; 
For each entry in table 
DECR IN FROM .COUNT=-1 TO 0 DO 
BEGIN 
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! Initialize oioree to start of input string 
INP = .STRINGL_PTRI; 


! Get the address and Length of table item 
ITEMC_PTR) = .TABLECL.IN, SYM_NAM_ADR); 
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Be Se Be Oe Be Se Be Se Oe Oe Se Be Ge Be Se Se Se Se Ge Fe Fs Fe Se Se Se Se Se Se Ge Se Ge Ge Ge Be Se Fe Se SF Se Se Se Se FF Ss Se Se Se Se Se SoS Geese te Beas 


DONO 


WW 


ek ed ad od od = = 2 od dS 2 8 


CWOCOC0 C909 SIN SI NINN NSN NN IO AAO OOOO 


PIP MINIMA BI BBB DITO AA UIP II BB NWI 


FUN OOONA UE WN =O OONO MEW | O OONAUE AR | OOONOUM SW O 


OOOOOOONOO® 
SVSSR2S23S 


1$-sep-1964 90:55:54 yayett Liege 
ITEME LEN] = .TABLEC.IN, SYM_NAM_LENJ; 
/ patties tse match flag 


MATCH = TRUE; 

: Lengt mus g, Coys 

Heh LEN Pg, FRINGC LEN] 
EN BEGIN 


Compare the strings 
bea LSSA .STRINGC_PTR] + .STRINGC_LEN] DO 


onpeRe next act ers converted to lower case 
if “to ER CChRCHA -INP)) NEQ LOWER_(CHSRCHAR(.ITEMC_PTRI)) 
EN REGIN 
MATCH = FALSE; ! They don't match 
EXITLOOP; 
END; 
' Still have a match 
iNP = .INP + 1; 
ITEMC_PTR] = .1TEMC_PTRI + 1; 
END; 
! Did they match? 
iF »MATCH 
THEN 
INDEXCOJ] = .IN; ! Set index as output 
RETURN Success 
END; 
END; 
END; 
! Did not find match 
RETURN FAIL 
END; 
007C 00000 ENTRY STSSEARCH_TABLE, Save R2,R3,R4,R5,R6 
if 08 C 0 SUBL2 #8, SP 
5 04 Bc p 6 MOVL aSfRING, RS 
B 9 BLEQ 6$ 
23 4 AC D MOVL STRING, R3 
0 Ac 9 F MOVL gQuNT. IN 
1 R 


D 62 
SRTSPC 16-Sep-19 :5 AX-11 Bliss-32 V4.0-74 Page 52 
04-000 amos Pit eT Pe i og Pe eee ae 9 435 
1 04 Ad Dd 15 1$: MOVL. 4(R3), INP : 183 
52 30 06 ¢ 13 MULL3 #6, IN, R2 ; 1839 
Oc ac ¢ 1D ADDL TABL , Re : 
04 AE 4 p 1 MOVL  (R2), ITEM+4 : 
04 Ad 9A 5 MOVZBL 4(R25, ITE + 184 
01 D6 9 MOVL so ATCH + 184 
: D C CMPL TEM, R + 1846 
le F BNEG 5 : 
52 55 es ¢ 1 28: ADDL3 4(R3),_R5, R2 + 1852 
. 3D SE 90030 | le 
54 $1 sf B MOVZBL CINP) R4 + 1856 
4 8 F BISL2 #32, R4 : 
> 04 : A 0004 MOVZBL altEms<, R2 : 
C8 43 BISL2 #32, R2 ; 
5 4 b 04 CMPL  R4, R2 j 
04 1 48 BEQL © 3$ ; 
$ b4 OAD CLRL MATCH + 1859 
: 11 O004F BRB 4$ + 1858 
1 06 00051 3$ INCL INP + 1864 
04 AE 06 0055 INCL JTEN+4 + 1865 
p 11 000 6 BRB & ; 1852 
08 6 €9 005 4$ BLBC MATCH, 5$ + 187 
08 Bc 50 DO 00058 MOVL IN, @INDEX + 1873 
50 01 BO O05F MOVL "1. + 1874 
AF 50 F4 a0¢s 5$: SOBGEQ IN, 1$ + 1832 
50 D4 00066 6$: CLRL = RO + 1884 
04 00068 RET ; 
; Routine Size: 105 bytes, Routine Base: SORSRO_CODE + 0941 
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¥04-000 eet) a eT PM eta tt ete Tee 9° 18) 
3 1690 ! 5 } GLOBAL ROUTINE ERR_CNTL( 
: 160¢ : ERROR_CODE ) : CALLINKAGE = 
: 1804 1 5 1 t+ 
3 190? : ay } Functional Description: 
: 1607 1836 ! Error control routine 
: 1609 189% Formal Parameters: 
: 1611 1398 1 i LINE_NO - Current Line number. 
3 1ol¢ : 44 } ERROR_CODE - Code number for the error being reported. 
; 191? 1899 ! Implicit Inputs: 
: 1616 1901 ' Implicit Outputs: 
; 1918 1908 : Routine Value: 
> 1620 1905 1! SUCCESS 
ie ey. 
: 16 : 1908 1 ! Side Effects: 
3: 1624 1909 1! 
3 1625 1910 1 !-- 
3 § 131) BEGIN 
; 1898 1318 output_(‘err_cntl'); 
; 1630 1915 _ CALAREA_( CA ); 
: 1638 u 1917 ZIF XBLISS( BLISS16 ) XTHEN 
3 163 U 1918 BEGIN 
3: 1634 U 1919 
3; 1635 U 1920 LOCAL 
: 1839 y 198 STATUS 
; 1638 yu 19 § ERR_BUFF : REF VECTOR C,WORD); 
: 1640 U 1925 ' Get the address of the gyer error buffer 
: bof: : 1? § ERR_BUFF = .CALCA_STAT_ADR); 
; 1808 U 19 8 !' Put the error code in the first word of the error buffer 
3 1644 U 19 ' Put the Line number in the second word of the error buffer 
: 1645 uU 1930 ' Clear the rest 
3 1966 U 1931 ERR_BUFFLOJ = .ERROR_CODE; 
3 164 U 19 ¢ ERR-BUFFCL1) = ,LINE_RO; 
> 1648 U 19 ERR BUFF : = 6; 
: 1649 U 193% ERR~BUFFL3) = 0; 
; 1651 u 19 6 X = ABS( .ERROR_CODE ); 
: 1888 U 19 3 ! If too big for the warning message handler then must fatal out 
> 1654 U 19 if .X GEQ SORS_LSTWRN 
3; 1655 U 1360 HEN 
3; 1656 U 194 BEGIN 
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een 198e §8:70:82 Hoar bo sneSsaisbcarr -6$2,1 Page 435 
ELOBAL ROUTINE WRN CNTL ¢ 
a ERROR_CODE ): CA_LINKAGE = 
' Functional Description: 
Warning control routine 
Formal Parameters: 


LINE_NO - Current Line number. 
ERROR_CODE - Code number for the warning being reported. 


Implicit Inputs: 
Implicit Outputs: 
Routine Value: 


SUCCESS 
FAIL 


Side Effects: 


Oe ee eee 


BEGIN 


LOCAL 
STATUS; 


! Get the impure data area 
CA WAREA_( CA ); 


output_(*wrn_cntl"); 
RIF XBLISS(BLISS16) 
XTHEN 


ERR_BUFF: REF VECTOR C,WORD); 
Ser the address of the user error buffer 


ee ee em a ee ed ed od dd dd dd od dd od od 
— 


' 

ERR BUFF = .CACCA_STAT_ADR 

' Put the river sone in the first word of the error buffer 
' Put ene ine “se a in the second word of the error buffer 
H pteer thir word 

ERR_B : neh te 

ERR- Burret 

ERR_BUF F 

' Call the user oe pours 

LIB_LINK( -CACCA_USR_WRNJ, ERR *BuF FCO, STATUS ); 

! If we fail then put negative code in buffer 

IF .STATUS NEQ SUCCESS 
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1 THEN 
! BEGIN 
} ERR_BUFFCOJ = = ABS( .ERROR_CODE ); 
: RETURN FAIL; 
1 END; 
1 END; 
1 XFI 
j Z1F XBLISS(BLISS32) 
1 XZ THEN 
1 BEGIN 
1 EXTERNAL ROUTINE SORSSERROR; 
! FORSSERAON' + ERROR COPE. 1, .LINE_NO); 
= Pitt 
: RETURN SUCCESS 
1 END; 
! % 
: ELUDOM 
1 END 
0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
2495 NOVEC,NOWRT, RD, EXE, SHR, 
Library Statistics 
eeowreee Symbols -------- 
Total Loaded Percent 
- SRC SOML 18.1383} $08 104 ¢3 
» SRCISRTSPC.L32;1 120 36 0 
*SRCISFKEYWRD.L $2; 1 , ' ies 


LCL, REL, 


Pages 
Mapped 
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SRTSP 1b-se 1984 7:53:54 AX-11 Bliss-32 V4.0-74 Page 58 
v04=060 1e8ep- 1984 $3:70:8¢ — EebatsoesneisaisPcact 692, 1 9435 
H COMMAND QUALIFIERS 
; BLISS/CHECK= (FIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:SRTSPCBLI/0BJ20B/$: SRTSPCBLI MSRC$:SRTSPCBLI/UPDATE=(ENHS$:SRTSPCBLI 
; 1784 L 8 9 MODULE PISPAS (IDENT = 'T03-038' XREQUIRE('SRC$:DEFSO') ) = 
; 1785 4 BEGIN 
: 1786 75 1 REQUIRE ‘SRC$:DKS'; 
: 1787 73 1 EXTERNAL ROUTINE 
; 1788 74 «4 ERR_CNTL: CA_LINKAGE, ! Error control routine 
; 1788 75 4 SPC_ALLOC: CA_LINKAGE, : er yecete storage from the work area 
; 1790 16 1 SKIP_IGNORED, ! Skip ignored text characters 
; 1791 a K ! Skip commas and ignored stuff 
3 173% 4. 1 GET_KYW_TYPE, ! Get keyword type 
; 179 79 «4 GET" CHAR_CLAUSE, ! Get character clauses of various kinds 
3 1794 80 1 GET-ONE CHA ! Get character or double character 
: 1795 81 1 GET_NEXT SPEC, ' Get pointer and length of next specification 
3 1796 306 1 GET_ SPEC ! Get pointer and Length of sub-specification 
: 1797 383 1 GET-FILE SPEC, i Find file specification 
3 1798 384 1 PARSE_COCL: CA_LINKAGE; ! Parse collating sequence 


K 2 
PISPA et Sep 4 00:53:54 AX-11 Bliss-32 V4.0-74 Pa 59 
TOS 088 1er8ep- 4882 P9:35i82 | Habart doPSAESsAeshCarT bS2.1 9° (20) 
; 1800 5 1 GLOBAL ROUTINE P1SPASS_ONE( 
: 1801 § 1 START: REF VECTORC3) 
31 O¢ 1 CON SYN: REF CON. SYM TAB, 
; 180 8 1 P_CON_CN REF VECTORCT 
: 1804 1 )? tA LINKAGE = 
18 SB he 
; 1807 3 i Pass 1: parse / rocess, /stable, /strip 
; 1808 9 : and /collating_sequence “specifications, 
. 138 ae Build the PT and T tables 
> 1811 96 ND 
3 1 \¢ 9 CON_CNT = P_CON_CNTCO]; 
Bla 39 LOCAL 
> 1815 400 KYW_LINE, ! Line number of keyword 
: 1816 401 KYW_TYPE ! Keyword type 
; B18 208 sua kr tyre. CTOR 
> 1819 404 SPC: VECTORES]: ! Next specification Longsh/pe taser’) ine 
: is ret SUB_SPC: VECTORC3); ! Sub specification length/pointer/Line 
: 18 § 407 ! Get the jeeyre area 
; 18 408 CA_AREA_( CA ); 
: 1858 ti | 
3 1826 411 i Pass 1: parse /process, /stable, /strip, 
3; 1827 tig : and /collating_sequence specifications. 
: 1358 ti7 Build the PT and ST tables 
; 1880 415 BEGIN ! Pass 1 
3; 1831 416 LOCAL 
: 1356 rth COLL: VECTORC3); ! Collating sequence specification 
3 1834 419 output_("pass 1'); 
: 1836 421 ! Initialize ter pass 1 
3; 1837 4 ¢ BUFF LEN Rie LEN); 
; 1838 4 BUFFL_PTR START “PTRI; 
‘ + +4 : : BUF F “LINE = » STARTC_ LINE ); 
; Hoh ? 6 COLLC_LEN] = 0; ! No collating sequence yet 
; ! § ? : : Exit loop when there are no remaining specifications 
> 1845 430 WHILE TRUE DO 
: ' § : 1 2 BEGIN 
: 1848 “38 KYW_LINE = .BUF 
> 1849 434 4 KYW" = TPE z a yi NER eee BUF FCO}, Pct] ); 
3 ' 39 " i ? SUB-SPCC_LEN] = Simplifies error checking below 
: 185 437 4 
3 ' 38 " 3 ? : Case on the keyword 
> 1855 440 4 SELECTONE .KYW_TYPE OF 
3; 1856 441 4 SET 
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CKW_PROC): 
IF_ .CACCA_VAR_MERGE] 


WRN_( SORS_SPCMIS ) 
it 4 IF~ .CACCA-PROCESS_OVR) 


WRN_( SORS_SPCOVR ) 
ELSE 
BEGIN 


KYU_LINE = ,SPCC LINE); 


SUB-KYW_TYPE = GET_SUB_SPEC( se 


SELECTONE .SUB_KYU_TYPE OF 


198¢ $$:70:8¢ — Eebarse°seeisatsPcact.642;1 
! /PROCESS= 
! Sort only 


! Merge invalid specification 


! Warn of override 


ave 2. 'ec rror 
pet8a Sha spcfor’) 


KW_RECDJ CACCA_PROCESS] = TYP_K_RECORD; 
KW-TAG CACCATPROCESS] = TYPTK-TA 
Ky “ADDR : ACCAZPROCESS] = TYP"KTADDRESS; 
INDX CACCAPROCESS) = TYP-K~ INDEX 
COVRERWISE): ERR_(~.KYW_LINE, SORS_ SPCIVP. ); 
END; 
SPCC _LEN J = 
END; 
(KW_STAB, KW_NOST): ! /CNOJSTABLE 


N 
F .CACCA_STABLE_OVR] 
WRN_( SORS_SPCOVR ) 


IF a TYPE 
‘ELSE DEAE 


LS 
num 


E 
CA_ 
CA_ 

E 
END; 
Ceu_ CuSO, KW_NOCH): 


u HEN - CACCA_VAR_MERGEJ 


( SORS$_SPCSIS ) 
ELSE if - CACCA_CHKSEQ_OVR) 


THEN 
WRN_( SOR$_SPCOVR ) 
ELS 


IF .KYW TYPE EQL KW esgic 
THEN CACCA_CHKS gay = 
END: ELSE CALCA_CHKSEQ) = 


END; 


! Warn of override 


! /CNOJCHECK_ SEQUENCE 
! Merge only 
! Sort invalid specification 


! Warn of override 
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3; 1971 2$ 4 TES; 3 
3 1346 4 3 
; 1307 8 ? Check for extraneous text : 
> 1975 60 4 iF .SUB_SPCC_LEN] NEQ 0 ! Extraneous text? ; 
3 1378 561 4 THEN 3 
3; 197 206 4 ERR_( .KYW LANG. SORS_SPCIVS ); . 
; 1308 a7 ? {eget LEN] NEQ ! Extraneous text? ; 
; 1380 29 ; ERR_( .SPCC_LINEJ, SORS_SPCIVS ); ! Invalid specification 
: 1988 sey 4 
3 19 66 4 k for next stant fi Agen nt chore acter 
3 1984 569 4 if Se IP. IGNORED( BUFFCOJ] ) EQL FAIL THEN EXITLOOP; 
3; 1985 570 4 
3: 1986 571 END; 
: 1987 276 
3 44 ef? Process the collating sequence (now that we know the pad character) 
: 1990 373 if .COLLC_LEN] NEQ 0 
: 199¢ 377 IF PARSE_COLL( COLLCO] ) EQL FAIL THEN RETURN FAIL; 
> 1994 3579 END; ! Pass 1 
3 1995 580 
3 1996 2581 RETURN SUCCESS; 
3 1997 2582 1 END; 

-TITLE PISPAS 

-IDENT \T03-038\ 

-EXTRN ECSERR wil: mat ALLOC 

-EXTRN SISSKIP_IGN 

~EXTRN SC$SKIP— CORMA GKTSGET_KYW_TYPE 

SEXTRN GCCSGET~CHAR_CLA AUSE 

~EXTRN GOCSGET— ONE Rena 

eEXTRN GNSSGET “NEXT OPEC 

eEXTRN GSSS$GET~ SUB UB_SPEC 

eEXTRN GFSS$GET e’ tbr SPEC 


~PSECT SORSRO_ CODE, NOWRT, SHR, PIC,2 


007c¢ 000 .ENTRY PISPASS ONE Save R2,R3.R4,R5,R6 : 2385 

56 000000006 90 9E 00 MOV ECSERR CN CNT : 

5 C2 0000 SUBL ; 
5 aC p 0 Of MOVL STA sar® af? + 2422 

38 AE 60 7D 0001 MOVG (RO) ; 
0 AE 8 Ao po 14 MOVL 8(ROS, OOUEF +8 > 2424 
4 AE D 19 CLRL COLL > 24 $ 

54 0 AE DO 0001C 18: OVL BUFF +S, KYW_LINE 3 24 

1c AE OOF PUSHAB SPC + 2434 

2¢ «AE OOF PUSHAB : FF : 

000000006 99 Q FB 3 CALLS eee SPEC 
10 AE D4 B CLRL nb: + 2435 
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PISPA Base -1984 53:54 AX=-1 Page 63 
103-038 12-88-1382 00:38:80 SORT 2° gr se8sae RTSP sear T ago, 1 . (285 
53D TSTL KYW_TYPE + 2443 
33 1 BNEQ  10$7 : 
5¢ AB 9 TSTB 3 (CA) + 2445 
18 A BGEQ : 
001€8168 F bp i PUSHL #1868136 + 2447 
08 79 AB E9 00044 28: BLBC 121 ccm 3$ + 2448 
001¢8160 8F DD 00048 PUSHL #1868128 + 2450 
47 11 4 BRB 9$ : 
54 24 AE pO 3$: MOVL  SPC+#8, KYW_LINE + 2654 
10 AE 9F 00054 PUSHAB SUB_SPC + 2455 
20 AE OF 7 PUSHAB SPC ; 
000000006 00 FB A CALLS #2, GSSSGET _SUB_ SPEC : 
55 D 61 MOVL RO, SUB_KYW-TYP i 3 
01 D1 00064 CMPL  SUB_KYW- “TYPE. i + 2459 
06 12 00067 BNEQ 4$~ : 
58 AB 01 90 90069 MOVB #1, 88(CA) : 
iF 11 0006D BRB 7$ : 
02 55 01 O006F 4$ CMPL SUB_KYW_TYPE, #2 + 2460 
06 12 00072 BNEQ $ : 
58 AB 02 90 0074 MOVB #2, 88(CA) ; 
14 11 p 78 BRB 7 F 
03 55 D1 9007A 5$ CMPL § SUB_KYW_TYPE, #3 + 2461 
06 12 0007D BNE : 
58 AB 04 90 0007F MOVB #4, 88(CA) : 
09 11 00085 BRB ; 
04 55 D1 00085 6$ CMPL § SUB_KYW_TYPE, #4 + 2462 
07 12 00088 BNEG 8S ; 
58 AB 03 30 008A MOVB #3, 88(CA) ; 
013A 31 OOOBE 7$: BRW 34§ ; 
001¢817¢ BF bp 00091 8$: PUSHL #1868156 > 2463 
0127 31 00097 9$: BRW 33$ ; 
05 53 D1 O009A 10$ CMPL KYW_TYPE, #5 + 2470 
22 19 0009D BLSS 14$ : 
06 D1 OOO9F CMPL KYW_TYPE, #6 : 
1D 14 O00A2 BGTR 14$7 ; 
08 5B AB E9 O00A4 BLBC 91(CA), 12$ t 2472 
001€8160 8F DD OOOAB 11$ PUSHL #1868128 + 2474 
6 11 OOOAE BRB 15$ ; 
05 D1 000B0 12$:  CMPL KYW_TYPE, #5 : 2477 
06 fF 008 BNEG 13$ ; 
5B AB 1 88 0008 BISB2 #1, 91(CA) : 2478 
1 11 00089 BRB 18$ ; 
5B AB 1 BA OBB 13$:  BICB2 #1, 91(CA) + 2479 
: 1 000BF BRB 18$ + 2440 
07 D1 000C1 14$ CMPL KYW_TYPE, #7 : 2483 
: 19 00064 BLSS 19$ ; 
08 p} C6 CMPL KYW_TYPE, #8 ; 
23 14 000 BGTR 19$ F 
5C AB 95 000CB TSTB 92 (CA) > 2485 
19 000¢ tee ; : 
001¢8170 BF pp D PUSHL #1868144 > 2487 
B 1 D6 15$: BRB 208 ; 
CB 58 ag } EO 00008 16$: BBS #1, 9I(CA), 118 : 488 
0 b} D CMPL KYW_TYPE, &7 > 249 
8 § E NEQ 17$ 3 
5B AB 8 E BISB2 #2, 91(CA) > 2494 
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PSECT SUMMARY 
Name Bytes Attributes 
SORSRO_CODE 548 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ecesunes Symbols -------- Pages Processing 
File Total Loaded Percent Mapped ime 
“$52 2S0UACE: SORTS  SRCISOML 18-1883 | 409 112 27 34 00:00.1 
_8255$DUA28: (SORT ered ser ek :1 120 16 13 12 00:00.1 
“$255$DUA28: CSORT3S2. SRCISFKEYWRD.L 32; 1 
1 1 100 9 00:00.1 


COMMAND QUALIFIERS 
PLISS/CHECR CF ELD, ENE TIA, GPT IREZED PUG TRACE L164, 188s SRTOPCEL S/CR SOONG: SATEEN | MSRC$:SRTSPCBLI/UPDATE=(ENHS$: SRTSPCBLI 


003 L 2588 0 MODULE P2S$PAS (IDENT = 'T03-038" ZREQUIRE('SRC$:DEFSO") ) = 

004 594 1 BEGIN 

005 595 1 REQUIRE ‘SRC$:DKS'; 

006 344 1 EXTERNAL ROUTINE 

007 94 1 CNTL: CA_LINKAGE, ! Error control routine 

008 seen 1 SEARCH TABLE, ! Search a table for a string 

009 896 1 v ' Convert ascii to binar 

010 897 1 SPC~ALLOC: CA_LINKAGE, ' Allocate storage from the work area 

011 898 1 SKIP_IGNORED, ' Skip ignored text characters 

Big 899 1 K OMMA ' Skip commas and ignored stuff 

01 900 1 GET_REXT SPEC, ' Get pointer and Length of next speqitica ion 
014 901 1 GET~SUB_SPEC; ! Get pointer and length of sub-specification 


3 
Ver$ep-198e $8:70:82 EGA bo2SneSsatsbear i 082: Pane of) 


16 


GLOBAL R 


! Get the impure area 
CA_AREA_( CA ); 


p18 9 OUTIN wO( 
3 9 START: REF VECTORC3), 
18 9 FLD_SYM REF SYM_TAB 
01 9 ): CA_LINKAGE = 
020 9 
ee: 
0 : 9 
eB eS 
ee 
028 9 KYW_TYPE ! Type of keyword 
029 9 SUB-KYW_TYPE, ” . 
030 9 KYW E, ! Line number of keyword 
031 9 VECTOR ° 
O36 9 SPC: VECTORL3), ! Next specification Lenarh/peincer/| ine 
$3 ; SUB_SPC: vECTORCS); ! Sub specification lLength/pointer/Line 
0 
0 
0 
0 
0 
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! Pass 2: define all fields, fill the field definition 
i table and the field symbol table 
! Build the FDT table 
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1 

1 

1 

1 
BEGIN 
' Pass 2: define all fields, fill the field definition 
table and the field symbol table 
{ Build the FDT table 
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; LOCAL 
; FDT: REF FDT_TABCI; ! Pointer to Field Defn Table 
oe8 ; output_('pass 2"); 
$080 3 ! Anchor field defn table at beginning of available work area 
be) ; Set address of field definition table in common area. 
$88 3 ZIF SBLISS(BLISS16) ZTHEN IF NOT .CACCA_KEY_OVR) FI 
054 4 ZIF ZBLISS(BLISS32) XTHEN IF .CACCA_FDT_ADR] EQL O 2F1 
055 4 THEN 
B28 94 BEGIN 
05 94 CA CA_FDT ADR] = ALLOC_(0); 
B38 944 CACCA_FDT_SI2Z) = 0; 
B22 94 END 
94 ELSE 
061 94 BEGIN 
086 948 LOCAL 
06 949 FROM_PTR; 
064 950 'move the hey pagle entice generated by command Line /ke: 
065 951 FROM_PTR = .CALCA_FDT_ADRI; 
POG 936 CACCA_FDT_ADR) = ALLOC_( ~CACCA_FDT_SIZ] * FDT_UNIT ); 
06 tt te VEC TCACCA_FDT_SIZ] * FOT_ONIT? .FROM_PTR? .CACCA_FDT_ADR} ); 
Ose 955 
0 328 ! Initialize for pe s 2 
071 95 QUFFL LEN] = .STA TPoLEN): 
072 958 BUFFL_PTR) = .STARTL_PTRJ; 
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BUFFC_LINE] = .STARTC_LINED; 


_UNI 
m 
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): 
CA. FDT_S1Z3 +1; 


KYW_LINE = .BUFFC LINE 


KYW_TYPE = GY NERT SEE BUFFCOJ, SPCCO] 3; 

Process the keyword (only field definitions) 

SEL SC TONe -KYW_TYPE OF 

KW_FIELJ: 
BEGIN ! Make an entry in the field table 

Bit masks for data_types 
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ARY_BIT = %x'0001', Binary 
DECIMA_BIT = %xX'0002', ! Decimal 
SIGNED_BIT = %xX'0004', ! Signed 
UNSIGN_BIT = a 4 a ; Uns jgned 
TRAILI_BIT = %X°0010', ! Trailing sign 
LEADIN_BIT = %x'0020', |! Leading sign 
SEPARA_BIT = Le et ' Separate sign 
OVERPU_BIT = 2X'0080', ! Overpunched sign 
OTHERS_BIT = 2X'0100"; ! Other explicit data types 
LOCAL 
DATA_TYPE, ! Bit_vector defining data type 
TYP: BYTE SIGNED, ! Data type 
NUMBER, ' Returned number 
INDEX ' Returned index 
NAM_SET, } pone set flag 
POS_SET, ' Position set fiag 
SIZ_SET, ' Size set Me 
DIG_SET; ! Digits set flag 
FDOT = ALLOC_(FDT_UNIT); 
CACCA_FDT_S¥Z) =". CACCA_FDT_SIZ) + 1; 
' Too many entries in FOT or field tyabe! table? 
AF cACCA Fol Ste GEQ MIN(FDT_MAX, MAX_FIELDS) 


H 3 
P2$SPA 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 P 9 
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ERR_( .KYWLLINE, SORS_SPCIVF ); ! Invalid field 
LEAVE fld; . 
END; 
! Initialize flags 
NAM_SET = FALSE; 
POS_SET = FALSE; 
SIZ_SET = FALSE; 
DIG_SET = a 
DATA_TYPE = 0; 
! While there are more field sub-specifications 
warts vee dO 


KYW_LINE = .SPCC_ LINE); 
SUB_-KYW_TYPE = GET_SUB_SPEC( SPCCOJ, SUB_SPCCO] ); 


Check the sub-specification 
SELECTONE .SUB_KYW_TYPE OF 


CKW_NAME]: ! Field name 
BEGIN 


! Name should not already be defined and 


} -onay® must be greater than zero 
IF .SUB_SPCC_LEN] LEQ O OR 
Pd 


BEGIN 
ERR_( .KYW_LINE, SORS_SPCIVF ); ! Invalid field 
LEAVE fld; 


WN SO OCONAUESWN $0 OONOA UNE WO OONOULS WN 


PPPS 


PAEMAMAMNMVIMNIVII WANNA NAW nononononononononnn 2 


' Look for the name in the field symbol table 
IF SEARCH vente SU -SPC C3, INDEX 
wen cement »BASE_J, .CA CA_FDT_Siz)-1 ) EQL SUCCESS 


' Name has already been used 


ERR_( .SUB_SPCC_LINE], SORS_SPCIVF ); ' Invalid field 
LEAVE fld; 
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the Length/address in the field symbol table entry 
the fdt index in the field symbol table 
FLD_SYM_LOC: REF SYM_TAB (1); 
M_LOC ="FLD_SYMC.CACCA_FDT SizJ-1, BASE_ 
M“LOCCO, SYA_NAM_LEN + $08 SPCE_LEN 3 
M_LOCLO, SYM_NAM Apr SPCL_PTRI; 
M~LOCCO, SYM~INDEX FoT_S12)-1; 
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ah 


5 ' Place value in position field of FDT 
! mare it zero bas 
FDTLO, FOT_FLD_POS] = .NUMBER - 1; 
END; 
CkW_ASCF: 
TYP = DT_AF; 
DATATYPE = .DATA_TYPE OR OTHERS_BIT; 


CKW_ASCZ): 
BEGIN 


TYP = DT_AZ 
DATA_TYPE = 
END; 


mn 


* DATA_TYPE OR OTHERS_BIT; 
CKW_BINA): 

DATA_TYPE = .DATA_TYPE OR BINARY_BIT; 
CKW_CHARJ: 

BEGIN 

TYP = DTT; 

DATA_TYPE = .DATA_TYPE OR OTHERS_BIT; 
CKW_DECI): 

DATA_TYPE = .DATA_TYPE OR DECIMA_BIT; 
CkW_D1B0): 

BEGIN 

TYP = DT_DB; 

DATA_TYPE = .DATA_TYPE OR OTHERS_BIT; 

END; 
CKW_FFLTJ: 

BEGIN 

TYP = OTF; 

DATATYPE = .DATA_TYPE OR OTHERS_BIT; 
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CKW_DFLT): 
BEGIN 


TYP = DT_D; 
DATA. TYPE = .DATA_TYPE OR OTHERS_BIT; 
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CkW_GFLT): 
BEGIN 


t 4 . 
PATA. TYPE = .DATA_TYPE OR OTHERS_BIT; 
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pI 
TYP = DT_H; 
DATA. TYPE = .DATA_TYPE OR 


CKW_PACK): 
BEGIN 


TES; 


! Check for extraneous matter 
IF .SUB_SPCC_LEN] GTR 0 


WARERE EERE RE 


NOUS WN (OOO VNOUE WN OOO 


if .DATA_TYPE NEQ 0 
THEN 
BEGIN 
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OTHERS_BIT; 


OTHERS _BIT; 


OTHERS_BIT; 


SIGNED_BIT; 
UNSIGN_BIT; 
LEADIN_BIT; 
TRAILI_BIT; 
OVERPU_BIT; 


SEPARA_BIT; 
Bad sub-specification 


0 

0 TYP = DT_P; 

08 DATA_TYPE = .DATA_TYPE OR 
4 END; 

11 CKW_ZONE): 

\¢ BEGIN 

1 TYP = DT_NZ; 

14 DATA_TYPE = .DATA_TYPE OR 
312 END; 

17 CKW_SIGN): 

\3 DATA_TYPE = .DATA_TYPE OR 
320 CKW_UNSIJ: 
3 DATA_TYPE = .DATA_TYPE OR 
3 : CKW_LEAD): 

; : DATA_TYPE = .DATA_TYPE OR 
326 CkW_TRAI): 

327 DATA_TYPE = .DATA_TYPE OR 
4 CKW_OVER): 
ts DATA_TYPE = .DATA_TYPE OR 
$36 CKW_SEPA): 
33 DATA_TYPE = .DATA_TYPE OR 
335 COTHERWISE): ! 
336 BEGIN 
33 ERR_( .KYW_LINE, SORS_SPCIVF ); 
$3 LEAVE fld; 

3 END; 


ERR_( .SUB_SPCC_LINEJ, SORS_SPCIVF ); ! Invalid field 
fF SKIP CORMAN SPCCO] ) EQL FAIL THEN EXITLOOP; 


Determine final data type, which bits were set above? 


RO 
DEF_(X,Y) = ! Macro to apply defaults 
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BEGIN 
Hen a Ae THRE AND (X)) EQL 0 
an ATALTYPE = .DATALTYPE OR (Y); 
IF (DATATYPE AND OTHERS_BIT) EQL 0 
DEF _(SIGNED_BIT OR UNSIGN_BIT pIEned BIT); 
IF (.DATA_TYPE AND DECIMA_BITY NEQ 
BEGIN 
DEF _(UNSIGN_BIT OR TRAILI_BIT OR LEADIN_BIT, TRAILI_BIT); 
Behe UNSION Bat OR SEPARA_BIT OR OVERPU_BIT, OVERPU_BIT); 
END; 
!  BINARY_BIT = £X'0001', ! Binary 
! DECIMA_BIT = ee ta ! Decimal 
!  SIGNED_BIT = %x'0004', ! Signed 
! UNSIGN_BIT = %x'0008', ! Uns jgned 
! TRAILI_LBIT = &xX'0010', ! Trailing sign 
!  LEADIN-BIT = %x'0020', ! Leading sign 
!  SEPARA_BIT = 2X'0040', ! Separate sign 
! OQVERPU_BIT = %x'0080', ! Overpunched sign 
!  OTHERS_BIT = %xX°0100'; ! Other explicit data types 
SELECTONE .DATA_TYPE OF 
%x'00 4 TYP = DT_T; ! Character 
%X'0100° 0; ! Do nothing, already set above 
%x°0005' TYP = DT_B; ! Signed binary 
%x'0009' TYP = DT_U; ! Unsigned binary 
%X'OOOA' TYP = DT_NU; ! Unsigned decimal 
%X'0096' TYP = DT“NRO; ! Decimal trailing overpunch 
%x'0056' TYP = DT_NR; ! Decimal trailing separate 
%X"OQ0A6'): TYP = DT“NLO; ' Decimal leading overpunch 
%X°0066'): TYP = DT_NL; ' Decimal leading separate 
OTHERWISE): ! Bad data type 


. ERR_( .KYW_LINE, SOR$_SPCIVD ); 


DTCO, FDT_TYPE] = .TYP; 
F .TYP LSS 0 THEN ERR_( .KYW_LINE, SORS_SPCIVF ); 
e 


ck for missing stuff 
OT (.NAM_SET AND .POS_SET AND .SIZ_SET) 


ERR_( .KYW_LINE, SORS_SPCIVF ); ! invalid field 


If the key is decimal, zoned or packed, verify that the Length 
was specified in digits (on VAX). 

Convert DIGITS to bytes, except for VAX packed. 

f the key is not decimal or packed, digits can't be used. 


22> 


IN 
RO 
SIZE = FDTCO, FOT_FLD_SIZ) 2%; 


mM 3 
P2SPA 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 74 
Tosco 8 19-808-1 382 PET SORT 2-SRCISRTSPCBLI .B 2;1 . (21) 
: 2415 1 6 IF (,DATA_TYPE AND DECIMA_BIT) NEQ 0 
$ 2i$ § ? OR .TYP EQL DT_NZ 
3; 241 OR .TYP EQL DT_DB 
3; 2418 4 N 
3: 2419 5 BEGIN 
3 r , $ 5 IF NOT .DIG_SET 
3; 24 § L 8 7 ZIF %BLISS(BLISS32) 
3; 24 09 ZTHEN BRR. eKYW_LINE, SORS_SPCIVF ) 
> 2424 U 3310 ZELSE 
3 2425 11 XFI 
: 24 § \¢ ELSE 
3 24 1 IF (.DATA_TYPE AND SEPARA_BIT) NEQ O THEN SIZE = .SIZE + 1; 
; 2428 14 7 END 
3 2429 15 6 ELSE IF .TYP EQL DT_P 
: 2430 16 § THEN 
3 ta 3317 BEGIN 
3; 24 ¢ L 3318 7 ZIF XBLISS(BLISS32) 
3 tte $13 4 BrHen IF NOT .DIG_SET THEN ERR_( .KYW_LINE, SORS_SPCIVF ); 
3 size L ; 17 ZIF XBLISS(BLISS16) 
3: 2436 u 3 § 7 ZTHEN SIZE = (.SIZE + 1) / 2; 
3: 2437 3 7 XFI 
; 2438 $e 7 END 
: 2439 325 6 ELSE 
3; 2440 3326 6 IF .DIG SET THEN ERR_( .KYW_LINE, SORS_SPCIVF ); 
3 see) $050 5 END; 
3 re | 8 4 END; 
3 244 4 4 
3 2444 330 4 X<IF FB 185 (OL 18652) ZTHEN 3 
3 2445 331 4 CkW_CDDJ: 3 
3 sees 3336 5 BEGIN 3 
3 2447 3 5 EXTERNAL ROUTINE é 
3 2448 $33¢ 5 CRE_EXTRACT_RECORD: CA_LINKAGE; : 
3 2449 S3$ 5 L 3 
3; 2450 3336 65 STATUS; 3 
> 2451 337 5 IF .SPCC_LEN] GEQ 2 THEN ; 
; seg $35 2 IF CHS$RTHAR(.SPC —PTRJ) EQL_C_QUOTE AND 3 
3 245 39 CHSRCHAR(.SPCC_PTR +, SPCC_CENJ-1) EQL C_QUOTE 
: 2454 340 5 
3: 2455 see) 6 
3; 2456 Ht) 6 SPC ~PIR} = .SPCC_PTRI+1; 
3 3458 3344 ; ate LEN) = .SPCC_LENJ-2; 
3 138 3t¢ STATUS = CRE_EXTRACT_RECORD( SPCCOJ, FLD_SYMCO,BASE_3, .KYW_LINE ); 
3; 2460 48 IF ERROR_ ( STATUS ) 
3: 2461 4 HEN 
3 246 rt: ERR_( .KYW_LINE, .STATUS ); 
3: 246 49 4 END; 
> 2464 50 4 xf I 
: $082 2 COTHERWISE) 
3 186 26 & 6. 
3; 2468 54 4 
3 2469 55 4 TES; 
3 24670 28 4 
3 2471 57 4 ! Move pointer to next specification 


0110 


DB 


N 3 
| AR SER=8RE P8708. HORT Se8sReTsaesbear 692.1 Page 245 
IF SKIP_IGNORED( BUFFCO] ) EQL FAIL THEN EXITLOOP; 
END; 
END; ! Pass 2 


RETURN SUCCESS; 
END; 


.TITLE P2$PAS 
SIDENT \T03-038\ 
.EXTRN ECSERR_CNTL, STSSEARCH_TABLE 
.EXTRN CASCVT-ATB, SA$SPC_ALLOC 
-EXTRN SISSKIP_IGNORED 
.EXTRN SCSSKIPCOMMA, GNSSGET_NEXT_SPEC 
-EXTRN GSS$GET~SUB_SP 
.EXTRN CRE_EXTRACT-RECORD 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
07FC 00000 ENTRY P2SPASS_TWO, Save R2,R3,R4,R5,R6,R7,RB,R9,- 
5E 30 C2 0000 SUBL2 m8 SP 
5 0110 CB i 9990 MOVAB 272(CA), R2 
62 D5 OOO0A TSTL (Re) 
0B M2 0000¢ BNEQ 1$ 
62 0128 CB OD D005 MOVL 96(CA), (R2) 
OOF SB TT bool? on 
53 62 00 90019 1$: MOVL (R2) FROM_PTR 
50 OOFF CB 9A 0001C MOVZBL 255(CA), RO 
E 50 06 C5 000 1 MULL3 #6, RO, -(SP 
nee 7 3) 8 $808 aut Ags tabsre ALO 
a 0 ea 
65 8 SS 90037 MOVC3 RO, (FROM_PTR), @272(CA) 
50 04 AC BO 003D 2%: MOVL START, R 
34 AE 60 b 0041 MOVO (RO), BUFF 
C AE 08 AO DO 00045 MOVL 8(ROS, BUFF+8 
000000006 6 pe Span CALLS AT SASSPC_ALLOC 
98 HH 00 0035 OVL RO. POT ~ 
OOFF cB 6 056 INCB = 25 (CA) 
63 E DO 0005A OVL #14, (FDT) 
04 A’ 01 AE 004D MNEGW #1, 4(FDT) 
56 ac AE 061 3$: OVL  BUFF+8, KYW_LINE 
6 AE OF 99 PUSHAB SPC 
28 «AE OOF PUSHAB BUFF 
000000006 00 Q F 0 $ CALLS ’ 3 GNSSGET_NEXT_SPEC 
6g 6 ? CMPL KYW_TYPE, #19 
0 007 BEQL 4$ 
026 31 OO007A BRW 608 
6 dD 00070 4$ PUSHL # 
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P2$PA 1b-se Sep- 53:54 AX-11 Bliss-32 V Page 77 
103-038 eR ts Tan Sey A PS le hk ee eet 9° (a4) 
17 55 D1 00141 CMPL $0. KYW_TYPE, #23 $ : 
12 00144 BNE i$” : ; 
D 146 INCL R ‘ ; 
SA D0 00148 118:  MOVL RO, DIG_SET : ; 
? 11 00148 BRB 21$ + 3036 ; 
16 D1 00140 12$: CPL SUB KYW_TYPE, #22 : 3109 ; 
9 12 001 BNEQ 1 : ; 
08 AE 9F 001 PUSHAB NUMBE + 3115 j 
OM oo Seige BURKS ie : : 
000000006 00 F 128 CALLS CASCVT _ATB : : 
b 16 TSTL + 3119 : 
1 BEQL : : 
03 g 59 16 BLBC iss _SET, 14$ + 3120 ; 
FF 1 00168 13$: BRW 6$ ~ : : 
08 AF D> 0168 14$:  TSTL NUMBER + 3121 ; 
58 AF ta bot p Set Opt’ pos. ser : 3129 : 
02 A3 08 AE 0 ae 017 SUBW3 #1, NUMBER, 2(FDT) : 3} 3 : 
B 11 00179 BRB 30 : 3036 ; 
18 55 D1 0178 15$: CMPL § SUB_KYW_TYPE, #24 + 3137 : 
05 13 Wve BEQL 16$ : : 
19 5 pi 0018 CMPL SUB_KYW_TYPE, #25 + 3143 ; 
05 12 00183 BNEQ 17$ : ; 
54 01 8€ 00185 16$:  MNEGB #1, TYP > 3145 ; 
5D 11 00188 BRB 28$ : 3146 ; 
1A 55 01 0018A 17$:  CMPL § SUB_KYW_TYPE, #26 + 3149 ; 
05 12 0018D BNEQ  19$ : ; 
52 1 88 0018 BISB2 “ DATA_TYPE + 3150 ; 
76 1100192 18$: BRB 33§ : : 
1B 55 D1 00194 19$:  CMPL § SUB_KYW_TYPE, #27 + 3152 ; 
05 fs 0197 BNEQ  20$ : ; 
54 OF 90 00199 MOVB #14, TYP : 3154 ; 
49 11 0019¢ BRB 2 > 3155 ; 
1C 55 D1 00195 208: CMPL § SUB_KYW_TYPE, #28 : 3158 ; 
05 fF O1A1 BNEQ 22s : ; 
52 02 88 001A3 BISB2 #2, DATA_TYPE : 3159 ; 
77 11 OO1A6 218: BRB 36§ ; 3 
1D 55 D1 OO1A8 22$:  CMPL SUB_KYW_TYPE, #29 > 3161 ; 
: 13 O14 BEQL 16$ : ; 
1E 55 01 OO1AD CMPL SUB_KYW_TYPE, #30 + 3167 ; 
5 ff O18 BNEG  23$ : ; 
54 A 90 0018 MOVB #10, TYP : 3169 ; 
0 11 0018 BRB 28$ : 179 ; 
1F D1 1B7 23$ CMPL SUB_KYU_TYPE, #31 : 317 ; 
5 1BA BNE 4$ ; ; 
54 B 90 001BC MOVB = #11, ‘TYP : 3175 ; 
11 001BF BRB 28$ : 3176 ; 
20 D1 OO1C1 248 CMPL SUB_KYW_TYPE, #32 : 3179 : 
05 12 0014 BNEQ $ ; ; 
54 1B 9 C6 MOVB a . TYP : 3181 ; 
I¢ 11 001¢ BRB 28$ ; 182 : 
21 i p| 1CB 25$ CMPL 5 _KYW_TYPE, #33 : 31 ; 
54 #6 1D MOVB #28, TYP : 187 ; 
| 11 0010 BRB 2 : 3188 ; 
22 D1 001D5 268:  CMPL © SUB_KYW_TYPE, #34 > 3191 : 


DATA_TYPE 

UB_KYW_TYPE, #38 

a B1SB2 #32, DATA_TYPE 
a8; CMPL B_KYW_TYPE, #39 
B1SB2 #16, DATA_TYPE 
35$:  CMPL SUB_KYU_TYPE, #40 

BNE 7$ 

BISB2 #128, DATA_TYPE 


Ww 

~ 

Sad 
o-ow 
=2n-— 
muMmwn 
or @® 
~ 


dD 4 
P2SPA 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 P 7 
103-038 atoms Pan Sy PM Pt he tg PL te te age 18 
108 BNEQ 27$ 
. Bee ee 132 
23 1 27$ cHPL SUB_KYWTYPE, #35 197 
4 1€ MOVE sot TYP 199 
33 0100 1E7 28$ BIsw2 £236, DATA_TYPE iu 
24 if 298: cHPL SUB_KYU_TYPE, #36 20 
52 It - B1sB2 #4 DATA_TYPE 3204 
25 18 39% cHPL ‘poise #37 3206 
1F r) 
0 
0 
0 
0 
0 
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$98: 
: KYW_TYPE, #41 3218 
BEQL te es 
FE BRW 6$ 
52 365: B1S82 #64, DATA_TYPE 3219 
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P2SPA 16-Sep-1984 00:53:54 AX=-11 Bliss-32 V4.0-74 Page 80 
rose oke 18-808-1382 90:93:24 SORT 2eaeisatsb tac os2:1 ° 24s 
: j 3 BEQ 58$ ; 
FF OF CMP Ive 1 : 3303 
1 k 69 00842 sas: Bbc — Bieser. 61s : 330 
58 i$ 06 £1 0034 BBC 3 “DATA_TYPE, 67$ : 334 
04 A B6 4 INCW (fT) : 
2 4C BRB 67$ + 3301 
15 91 O034E 598 CMPB.séST YP: : 3315 
. iF BNEQ 60$ : 
4E A F BLBS DIG_SET, 67$ + 3319 
3 11 6 BRB é ; 
49 A 59 O$: BLBC DiG_SET, 67$ + 3326 
FD60 31 B 61$:  BRW 6 ; 
3E ef D1 7 28: CMPL KYW_TYPE, #62 ; 3331 
41 12 0036 BNEG 67$ : 
02 18 AE D1 00 63 CMPL SPC, #2 + 3337 
19 19 0 6 BLSS  63$ : 
22 1¢ BF 91 00369 CMPB asPces, #34 : 3338 
13 12 00360 BNEQ 63$ ; 
50 e 18 OA ci 0 oF ADDL3 SPC, SPC+4, RO : 3339 
2 FF AO 91 0 5 CMPB 0s =1 (RO), #34 : 
REE Btu a 
18 AE 03 Ps 037 SUBL2 #2, SPC : 334 
6 DD 00382 63$:  PUSHL KYW_LINE > 3345 
a a a : 
000000006 00 03 FB 038A CALLS #3, CRE_EXTRACT_RECORD ; 
10 0 €8 00391 BLBS STATUS, ~67$ : 3346 
so Be Bee ous, BORE Nth boy 
000000006 00 02 FB 00 38 65$: CALLS #2, ECSERR_CNTL ; 
01 5 DI 039F CMPL  =so#RO, #1 ; 
1 2 003A2 668: BNEG 6 ; 
24 AE OF OO3A4 67$:  PUSHAB BUFF : 3358 
000000006 00 gi FB OO3A7 CALLS #1, SISSKIP_IGNORED ; 
g D A TSTL OR ; 
reke HE SSE Beat | 
50 01 bd 6 BS 68$: MOVL #1, RO + 3364 
4 00388 RET ; 
50 b4 0389 69$:  CLRL RO > 3365 
4 00388 RET 3 


; Routine Size: 956 bytes, Routine Base: SORSRO_CODE + 0000 


> 2480 366 1 

: 3481 67 1! ELUDOM 
; tB $ i én 

; 333 0 ELUDOM 
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PSECT SUMMARY 
Name Bytes 


ibe 


Attributes 


Haat TLL CT ee Ta ites ea 


SORSRO_CODE 956 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
ecccce =- Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
$255$DUA28: CSORT32.SRC s0mt 18. L32;1 409 105 5 34 0:00.1 
SISSMUME TOUT Saetemmure tH] 48 BBE 
“$255$DUA28: SORT3S2.SRC SFKEVURD. L $2; 1 100 9 00:00.1 


COMMAND QUALIFIERS 


PLISE/CHECK SEP TELS, INE TIAL OPT IAIZE) /HOTRACE/LISHL 1581 SRTSPCEL | /OBJ908 8: SRTSPCRL I MSRC$:SRTSPCBLI/UPDATE=(ENH$: SRTSPCBLI 


2485 L 3371 © MODULE P3SPAS (IDENT = 

486 3377 1 BEGIN 

487 378 1 REQUIRE 'SRC$:DKS'; 

488 3676 1 EXTERNAL ROUTINE 

489 677 1 ERR_CNTL: CA_LINKAGE, 
490 3678 1 SPCALLOC: CA~LINKAGE, 
491 679 1 SKIP_IGNORED, 

49 680 1 SKIP™C 

49 681 1 GET_REXT_SPEC, 

49% 68¢ 1 GET~SUB_SPEC, 

495 3683 1 SEARCH TABLE, 

4696 3684 1 PARSE_TEST: CA_LINKAGE; 


*T03-038' ZREQUIRE('SRC$:DEFSO") ) = 


rror control routine 

Llocate storage from the work area 

kip ignored seat eharesters 

kip commas and ignored stuff 

Get state? and Length of next specification 
Get pointer and length of sub-specification 


E 
A 
S 
$s 


Parse a test clause 
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. 
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pai9be 19:10:56 ESSard2esnedsatspcar 1 -682;1 Pane 285 


16°$ 
14-$ 


: 2498 685 1 GLOBAL ROUTINE P3SPASS_THREE ( 

: 2499 6 8 1 START: REF VECTORC3) 

; 2500 687 1 CON_ SYM: REF CON_SYM Ti, 

; 2501 688 1 P_CON_ CNT: REF VECTORCTI, 

3 B 689 1 FCD_SYM: REF SYM_TAB, 

; 0 690 1 CDX_SYM: REF SYM SRP 

> 2504 691 1 P_CBX_CNT: REF VECTORC1) 

3 202 $36 1 3 CA_LINKAGE = 

; 209 O27 BEGIN 

>; 2508 695 ' Pass 3: parse condition spegificasions. 

3 28 938 ' set up test definition table 

> 2510 69 i condition symbol table and the 

3; 2511 038 { constant symbol table. 

: 21§ 69 ! Build the TDT table 

4 317 £0 at oe Se A Se ee ce me oem ee em = oO a eR Se me ee ee ee ee 

: 2515 oe CON_CNT = P= CON_CNTEOI. 

: 218 70 CDX_CNT = P_CDX_CNTCOJ; 

: $216 roe LOCA 

3 2519 706 KYW_TYPE ! Type of keyword 

; 320 707 SUB"KYW_TYPE, 

3 2521 708 KYW-LINE, ! Line number of keyword 
: 25§ 709 BUFF: VECTOR ° 

3; 25 710 SPC: VECTORL3), ! Next specification length/pointer/Line 
3; 2524 711 SUB_SPC: VECTORL3), ' Sub specification Length/pointer/Line 
3 2 ? Har coLt: VECTORC3); ! Collating sequence specification 
3; 2527 714 ' Get the impure area 

; 2528 715 CA_AREA_( CA ); 

3; 2529 ay 

: $334 4 , 

3 332 18 ! Pass 3: parse condition specifications. 

3; 253 720 ! set up test definition table, 

3 2534 721 ! condition symbol table and the 

3; 2535 7 ; ‘ constant synbol table. 

3 238 4 ? Build the TDT table 

3 238 y 5 BEGIN ! Pass 3 

3 379 4 ; output_("pass 3°); 

: 246 7 § ! Anchor condition definition table at beginning of available work area 
3 254 730 ! pet address of condition definition table 

3 2544 731 CACCA_TDT_ADR) = ALLOC_(0); 

: $80 438 

3 349 734 ! Initialize for pass 3 

: $348 735 BUFF LEN) = .STA TfL 

3 2549 7 BUFFL_PTR) = .STARTL_PTRI; 

; 230 , BUFFCTLINE) = .STARTEC_LINE); 

; 226 7 § ! Exit loop when there are no remaining specifications 

: 3 740 WHILE TRUE DO 

3 2554 741 4 BEGIN 


4 
P3SPA 1b-se -1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 83 P 
rote Ss 1 =300 7138 90:93:22 SORT3S2.SRCISRTSPCBLI.B352;1 . (233 T 
$ 5 742 4 EL ; 
3 § i ? condition; : 
: 8 745 4 KYW_LINE = .BUFFC_LINE); . 
: $999 fag 4 KYWITYPE = GET_NERT_SPEC( BUFFCOJ, SPCCOI ); : 
3 i £8 ? Process the keyword (only conditions) 3 
; es 731 : IF .KYW_TYPE EQL KW_COND : 
: eg 7 § condition: BEGIN ! Make a entry in the test definition table - 
3 208 ie LOCAL 3 
3; 256 754 INDEX ! Returned index in symbol table : 
; 2568 755 NAM_SET, ! Name qualifier defined 3 
; 4 tas TST_SET; ! Test qualifier defined : 
3; 2571 aH ! Too eony entries in the named condition table? : 
: 27¢ 759 2 IF _ .CDX_CNT GEQ MAX_CONDX 3 
3; 257 760 THEN 3 
3 2574 761 6 BEGIN 3 
; 2575 106 6 ERR_( .KYW_LINE, SORS_SPCIVX ); ! Invalid condition 3 
; 2576 76 g LEAVE condition; 3 
3; 2577 764 END; 3 
3; 2578 765 3 
; 2579 766 NAM_SET = FALSE; : 
3 ap 434 TST_SET = FALSE; : 
5 286 769 ! While there are more condition sub-specifications 3 
; 258 770 5 WHILE TRUE DO 3: 
3 aBe 771 6 BEGIN ie 
3; 2585 4k 6 3) 
; +4 773 «6 KYW_LINE = .SPCC_LINE]); : 
3 aT ore ? SUB-KYW_TYPE = GET_SUB_SPEC( SPCCOJ, SUB_SPC[0] ); : 
3; 2589 ore 6 ' Check the sub-specification 3 
3; 2590 777 6 ! 3 
3; 2591 ore 6 SELECTONE .SUB_KYW_TYPE OF 3 
3 236 779 6 SET 3 
3; 259 780 6 : 
3 2594 44 § CKW_NAME): 3 
3 2595 7 ; BEGIN 3 
3 4 783 7 3 
3; 259 784 7 ! Name should not already be defined and 3 
3 398 Ay 4 ' Length must be greater than zero 3 
3; 25 7 § IF .SUB_SPCC_LEN] LEQ : 
: 2600 7 7 R 3 
; 2601 788 7 -NAM_SET : 
3 rey 789 7 N 3 
3; 26 790 BEGIN 3 
3; 26 791 ERR ( .KYW LINE, SORS_SPCIVX ); ! Invalid condition : 
3; 2605 79 LEAVE condition; 3 
REY a : 
+ 2608 795 7 ! Look for the name in the condition symbol takie 3 
3; 2609 7 4 IF SEARCH at SUB pct J, INDEX, 3 
: 610 197 , COxX_SYMCO,BASE_J, .CDX_CNT’) EQL SUCCESS ; 
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LEAVE condition: 
END; 


' Test has been set 


APOAGAOOA OOOO 
AIA 


we 


8 TST_SET = TRUE; 
Bd END; 
Cornet se3: ! Neither ‘test’ nor ‘'name"’ 


ERR i «KYW_LINE, SORS_SPCIVX ); ! Invalid condition 
bEAvE condition; 


WO OOVNOUS WO OW 


SS-S5- 


TES; 
[f ShEP COMA SPCCO] ) EQL FAIL THEN EXITLOOP; 


; 2 644 7 Lenene has already been used 5 
3 2614 o ERR_( .SUB_SPCC_LINE], SORS_SPCIVX ); ! Invalid condition : 
3; 2615 § LEAVE condition; H 
i 5813 04 ne 
3 rt} 05 ; ' Put the honath/age address in the acenditign ees en l table entry ; 
; 261 Be 7 TM Be NT, SYM_NAM_LEN - SUB_S EN]: : 
3 y hh 4 CDX"SYML.CDX-CNT, SYM_NAM “ADR = .SUB~ SpE “PTR : 
; 26 § 09 7 ' Put the tdt index in the onditi n sypee ggbte ; 
; ° Z \9 f CDX_SYMC.CDOX_CNT, SYM_INDEX -CACCA_TDOT_S12]; : 
3 2625 aig 7 ! Increment the count of named condition ; 
3; 26 § 813 7 CDX_CNT = .CDX_CNT + 1; ; 
: 26 814 7 3 
; 2628 815 7 ! Name has been set : 
: 2629 518 7 NAM_SET = TRUE; : 
; 2650 817 7 3 
3; 2631 818 6 END; 3 
3 O36 819 6 3 
: 26 820 6 CkW_TESTJ : 
; 26 821 8 3 
3 2635 8 ; BEGIN 3 
3 $36 3 7 LOCAL 3 
3; 263 824 7 STATUS; ! Return status 3 
; 2638 3825 7 3 
3; 2639 8 8 7 ! Parse the t ett t clause 3 
3; 2640 8 7 aaah : hy sPaRses EST( SUB at é 
3 2641 828 7 ASE. CON_CNT 3 
3 236 829 7 FLD avn 6: “BASE - 3 3 
3: 264 3830 7 3 
3 2644 tt 7 ! Test should not already be dor tans and test clause should : 
3 sot? £36 7 i Be greater then zero in Len 3 
3; 2646 83 7 if -TST_SET OR STATUS EQL FA t ; 
3 2647 834 7 THEN 3 
3; 264 tH 8 BEGIN 3 
3: 264 B37 5 ERR_( .SUB_SPCC_LINE], SORS_SPCIVX ); ! Invalid condition : 
3 HH ¢ 3 
: 840 7 3 
: 41 7 3 
3 7 3 
3 6 : 
; é : 
: 7 3 
; 7 3 
; 6 3 
3 6 3 
; 6 : 
3 : 


000000000000000 
PVT 
MEW —OOCONOUS WO 0 


Steet 


K 4 
16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-7 Pa 5 
rose Ose et) RH HM Te Tatil eee 9 383 
; 26 5 ' Make sure mandatory stuff is set 
3 £53 § 3 2 IF NOT (.NAM_SET AND” .TST_SET) 
3; 2671 8 THEN 
3 ole 6 BEGIN 
; 267 60 6 ERR ( .KYW_LINE, SORS_SPCIVX ); ! Invalid condition 
: ore ] ; LEAVE condition: 
ae oS (0: 
Be HB | 
: 680 bey 4 ! Find the next speci fication. ignore comments and blanks 
: et 483 2 if SKIP_IGNORED( BUFFLO] ) EQL FAIL THEN EXITLOOP; 
: 268 890 5 END; 
: 2684 871 
: eH 1h END; ! Pass 3 
: 2687 874 RETURN SUCCESS; 
; 2688 875 END; 
-TITLE P3S$PAS 
-IDENT \T03-038\ 
-EXTRN ECSERR_CNTL, SASSPC_ALLOC 
SEXTRN SISSKIP_IGNOR 
~EXTRN SCSSKIP— COMMA, GNSSGET_NEXT_SPEC 
~EXTRN GSSS$GET-S SPE 
-EXTRN STSSEARTH_TABLE 
-EXTRN PTSPARSE Wrest 


»PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


OOFC 00000 ENTRY P3SPAss THREE Save R2,R3,R4,R5,R6,R7 : 3685 
a, eres C3 $0099 ROVAR ECSERR,CNTL, A7 
ome GB OTB ES BR BBR RBIEGSRLGM ggz78CCN a 
38 AE $6 ” 001 MOVG (RO), BUFF : 
0 AE 08 AO D6 0 18 MOVL  8(ROS, BUFF+8 : 3737 
52 AE p 0020 1$ MOVL  ®BUFF+8, KYW_LI : 3743 
1C AE 9F 00024 PUSHAB SPC : 3746 
2c A VT] 3 7 PUSHAB BUFF : 
000000006 00 ; F A CALLS ae. ene NEXT_SPEC 
6 D1 00034 CMPL KYW_TYPE, : 3750 
} 7 BEQL 3. 3 
00cd 31 9 BRW 3 : 
OOOOOOFF  &F 18 i D4 if 2$ cMPL i CDX_CNT, #255 ; 3759 
43 46 CLRQ 1 SET : 3767 
52 24 «OE 48 3$ MOVL ils KYW_LINE : 3773 
10 AE oF 4C PUSHAB SUB_SPC : 3774 
000000006 ‘ 05 Pe 60085 Chete. O° GSSSGET_suB. SPEC 
99 g BB 38 MOVL ag’ Sos _KYWITYPE : 
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1 
1 
FF 31 00117 BRW 1 3 
50 $8 Be VA 14$ neve #1, RO 3; 3874 
50 04 OO11E 158 CLRL = RO : 3875 
04 136 RET ; : 

; Routine Size: 289 bytes, Routine Base: SORSRO_CODE + 0000 
; 2689 £76 1 
3; 2690 877 1 ! ELUDOM 
; 2691 878 1! 
; 269 879 1 END 
3; 269 880 0 ELUDOM 
: PSECT SUMMARY 
3 Name Bytes Attributes 
; SORSRO_CODE 289 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Pte et oe Oe | comune Symbols oeree--- Pages Processing 
: File Total Loaded Percent Mapped e 
: _$255$DUA28:(SORT32.SRCISORLIB.L32;1 409 104 25 34 00:00.1 
; _$255$DUA28: ESORT39: SRCISRTSPC:L 301 120 8 6 12 00:00.1 
; 7$255$DUA28:CSORT32.SRCISFKEYWRD.L32;1 
3 1 1 100 9 00:00.1 
; COMMAND QUALIFIERS 
3 PLISS/CHECK= (FIELD. JNITIAL OPTIMIZE) /NOTRACE/LIS#LISS: SATSPCBL1/08)=08/$: SRTSPCBL MSRC$:SRTSPCBLI /UPDATE=(ENH$:SRTSPCBLI 
; 2694 L 3881 0 MODULE P4$PAS (IDENT = ‘T03-038' XREQUIRE('SRCS$:DEFSO') ) = 
; 2695 887 1 BEGIN 

1 REQUIRE ‘SRC$:DKS'; 

1 EXTERNAL ROUTINE 

1 ERR_CNTL: CA_LI WE AGE ! Error control routine 

1 SPC_ALLOC: CA_LINKAGE, i Allocate storage from the work area 

1 SKIP_IGNORED, i Skip ignored text characters 
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701 4190 1 GET_NEXT_SPEC, ' Get pointer and length of next specification 
702 t18 4 PARSE. KEY: CA_LINKAGE; | Parse key definitions pas 
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Pass 4: parse all /KEY and /DATA specifications. 
Build the KFT table 


IND 
CON_CNT = P-CON_CNTEO], 
COXTCNT = PTCDX“CNTLOI; 


CAL 
KYW_TYPE, ! Type of keyword 
KYW_LINE, ! Line number of keyword 
SPC: VECTORC3), ! Next specification songsh/petater’) tne 
SUB_SPC: VECTORC3); ! Sub specification length/pointer/Line 


! Get the impure area 
CA_AREA_( CA ); 


! Pass 4: parse all /KEY and /DATA specifications. 

! define the default record type in temporary 
: record definition table. 

: Build the KFT table 


Paeie ! Pass 4 
KEY_SET ! Has key been oxpticttty set 
DATA_SET; ! Has data been explicitly set 


output_("pass 4'); 


! Anchor key/data field table (KFT) at beginning of available work area 
! Set address of key/data field definition table 

! Key fie e so far has no entries 

16) ZTHEN IF NOT .CACCA_KEY_OVR) X%FI 
32) XTHEN IF .CACCA_KFT_ADR] EQL O FI 
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1 733071382 99:35:84 SORT 2.SRCISRTSPCALI.B 231 . (235 
FROM_PTR; 
!move the ke pegte ence igs generated by command line /ke: 
FROM PTR = .CALCA_KFT_ADR); 
CACCA_KFT_ADR] = ALLO { ~CACCA_KFT_SIZ] * KFT_UNIT_); 
EHEROTE ( -CACCA_KFT_SIZ] * KFT_ONIT? .FROM_PTR> .CACCA_KFT_ADRJ ); 
itialize for pe s 4 
sae = .STA TE LEN); 
-PTRJ_= .STARTC_PTRI:; 
LINEJ 
ither key nor data has been explicitly given 
ET = FALSE; 


S 
K_SET = FALSE; 
Exit_loop when there are no remaining specifications 
LE TRUE DO 
BEGIN 
key; 


KYW_LINE = .BUFFC_LINE); 
KYWITYPE = GET_NERT_SPEC( BUFFCOJ, SPCCO) ); 


Process the keyword 
BEGIN 
SELECT .KYW_TYPE OF 

SET 

CRU REY, RU ADATAI: ! Make entry in the key/data field table (KFT) 


LOCAL 
IS_DATA; 


IF .KYW_TYPE EQL KW_DATA 
THEN 


BEGIN 
If .CACCA_KEY_OVR] 
THEN 


BEGIN 
WRN_( SORS_SPCOVR ); ! Warn of override 
L key; 


1S_BATA = FALSE; 


END; 

' Parse the hey or data 

IF PARSE_KEY( SPCCOJ, .IS_DATA, 
CON_SYMCO,BASE_J, CON_CNT, 


=" STARTC_LINED; 
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P4SPA 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 91 PS 
103-038 13288-1382 ET EET SORT32. RCISRTSPCBLI.B 231 . (23) T0 
> 281 4306 6 FLD_SYMCO,BASE_), 
; 819 4 07 b EbK-SYMEO BASES , COX_CNT ) EQL FAIL 
; 1 4309 4 ERR_( .SPCC_LINE], SORS_SPCIVK ); ! Invalid key or data field 
; 5 ¢ i END; 
: 2824 4 1 ' 
5 4 5 431 ! Bad specification keywords handled in pass 1 
: $859 ta18 2 eno; °° 
: 2808 4316 4 ' 
3; 2829 4 i$ 4 ! Find the next s os] thet ton. ignore comments and blanks 
: 8 9 ‘ 18 4 IF SKIP_IGNORED( BUFFLOJ ) EQL FAIL THEN EXITLOOP; 
: 83 4320 END; 
3 B34 $353 
3 ore é § See if default key field needs to be defined 
: 836 ‘3 4 4 if NOT (.KEY_SET OR .CACCA_KEY_OVR]) 
: 2838 43 : 4 BEGIN ! Define default key entry 
3; 2839 43 4 LOCAL 
3 rey $368 ? KFT: REF KFT_TABL]; ! Pointer to Key Field Table 
: 284 4380 4 KFT = ALLOC_(KFT_UNIT); 
> 284 4331 4 IF_.CACCA_KFT_SIZ) GEQ KFT_MAX THEN ERR_( 0, SORS_WKAREA ); 
; Bou 43 é 4 CACCA_KFT-SIZJ = .CACCA_KFT_SI2Z] + 1; 
> 2846 4334 4 KFTCO, KFT_BUILD) = TRUE; 
> 2847 43 5 4 KFTCO, KFTICONTINUE) = TRUE; 
> 2848 4336 4 KFTCO, KFT~CONSTANT) = FALSE; 
+ 2849 4337 4 KFTCO, KFT-CONT CDX) = FALSE; 
: 2850 4338 4 KFTCO, KFT~CONDR) = FALSE; 
> 2851 4339 4 KFTCO, KF TIDESCEND = FALSE; 
3 85¢ 4340 4 KFTCO, KFT“DATA) = FALSE; 
3 285 4341 4 KFTCO, KFT“NDE_POS] = 0; 
> 2854 434¢ 4 KFTCO, KFTFDT-IDX) = 0; 
> 2855 4343 4 KFTCO, KFTZTDT“JDXI = 0; 
: $82 izes 3 END 
; 858 4346 ’ 
3 B20 ? r See if default data field needs to be defined 
; B61 ‘ a3 IF NOT .DATA_SET 
: re 4351 4 BEGIN ! Define default data entry 
3 2864 4 3g 4 LOCAL 
3 2865 : 27 ? KFT: REF KFT_TABC]; ! Pointer to Key Field Table 
: as? 4355 4 KFT = ALLOC_(KFT WNIT); 
: 4 : 4 IF .CACCA_KFT_SIZ) GEQ KFT_MAX THEN ERR_( 0, SORS_WKAREA ); 
; 9 ‘ 3 4 ACCA_KFT~SIZJ = .CACCA_KFT_SIZ) + 1; 
; ¢ 4 35 4 KFTCO, KFT_BUILD) = TRUE; 
; 2 4360 4 KFTCO, KF T-CONTINUE} = TRUE; 
+ 287 4361 4 KFTCO, KFT“DATA) = TRUE j 
+ 2874 4362 4 KFTCO. KFT“CONSTANT) = FALSE; 
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KFTCO, KFT_CONT cox = FALSE; 
KFTLO, KFT_CONDRJ = FALSE; 
KFTCO, KFT“DESCEND) = FALSE; 
KFTCO, KFT“NDE POS] = 0; 
KFTCO, KFT“FDT-1DXJ = 0; 
KFTCO, KFT“TDT“IDXJ = 0: 
END; 
betty continue bit off for last key field table entry 
LOCAL KFT REF KFT 5y4bt3: 
KFT = =CALCALK 
KFT = KFT CRCCAT oe Jin73- 1, BASE_); 
KFTCO, KFT.CONTINUEJ~= FALSE; 
END; 
END; ! Pass 4 
RETURN SUCCESS; 
END; 
TITLE p4sPas 
“IDENT \T03-038\ 
.EXTRN ECSERR_CNTL, SASSPC_ALLOC 
-EXTRN SISSKIP_IGN 
-EXTRN GNSSGET-NEXT_SPEC 
-EXTRN PKSPARSE_KEY™ 
.PSECT SORSRO_CODE,NOWRT, 
O1FC 00000 ENTRY 
58 000000006 99 9E 9000¢ MOVAB SAS$SPC_ALL 
57 000000006 00 9 9000 HOVAB ECSERRE chit *R? 
3E 24 f 001 SUBL 
5 0108 cB 001 MOVAB atch, R2 
6 d5 0001 TSTL (R2) 
B 1 1A BNEQ 1$ 
62 0128 CB p 1C MOVL 96(CA ), (R2) 
OOFD (B94 CLRB 53(CA) 
20 11 BRB $ 
62 D0 1$: HOV (Re) FROM | PTR 
OOFD A A MOVZBL 253(CA), 
8 ASHL = #3, RO top) 
6 FB CALLS #1, SA$SPC_ALLOC 
0 p MOVL RO. (Re) 
OOFD A MOVZBL 258(CA), RO 
ca MULL2 #8, RO 
: : 4 MOVCS RO. (FROM_PTR), 
06 A p 47 28: MOVL START, RO 
18 AE 6 48 mova (RO) BUF 
20 AE 08 AO D F MOVL (ROS BUFF S8 
2 D 4 CLRL —sCKEY_SET 
6 D4 ; CLRL  —sdDATR set 
55 20 AE 00 3$: MOVL § BUFF#B, KYW_LINE 


Pp 
T 


F 5 
-Sep- 7:53:54 AX-11 Bliss-32 V4.0-74 Page 93 
ros O88 aati ae ts ran Sy Pa te hg Pee (283 
PUSHAB SPC : 4272 
PE AE OF Saget PUSHAB BUFF 
F 6 CALLS #2, GNSSGET_NEXT_SPEC ; 
state 5 D § MOVL TYPE : 
C p ¥ CPL KYW_TYPE, #44 ; 4280 
32 D 4] CMPL KYW_TYPE, #50 
32 28 M if 4$: CMPL KYW_TYPE, #50 + 4285 
8 1 7 BNEQ : 
1D 7B MOVL #1, DATA_SET + 4288 
§ } : mh MOVL al. 1S_DATA ; 4 2 
BC #1, 121(CA), 6$ + 4293 
™ vit Ae 001¢8160 : 6D $oBB BOSAL 41668428 + 4296 
5 DD 0 PUSHL KyW_LINE ; 
54 H D0 : 6$ HOVL #1, KEY SET i 4 99 
7E 14 Hi iB 0097 7$ MOVO CDR_SYM, =(SP) : 4307 
7E C AC 7D 00098 MOVa P_CON_CNT, -(SP) : 
3 AC DD 00 PUSHL CON_SYM F 
a5 D 000A2 PUSHL 1S_BATA ; 
24 AE F OOOA4 PUSHAB sPC 4304 
000000006 00 0? i Sone CALLS He PKSPARSE_KEY ; 
NEQ 9$ 3 
001C81AC ar bb 0082 SU SHL #1868204 ; 4309 
18 AE DD 000B PUSHL  SPC+ ; 
67 09 FB SORE 8$: CALLS #2, ECSERR_CNTL 
01 D1 000g CHPL R ‘ # ; 
18 3 de a90cs 9$: PUSHAB BUF F : 4318 : 
000000006 00 gi Fe aac CALLS a, SISSKIP_IGNORED ; ; 
NEQ 3$ ; : 
39 87 if aB9¢F BLBS KEY_SET 11$ + 4324 : 
34 79 AB 1 £0 00004 BBS #1, ~121(CA), 118 ; : 
8 DD 00009 PUSHL 48 : 4330 ; 
68 1 FB S008 CALLS i, SASSPC_ALLOC ; 
FF a OOFD cB $1 oe CPB i a #255 ; 4331 
PUSHL #1868124 : 
saab taht et be f? CERES -(SP) 
? F Fi CALLS #2, ECSERR_CNTL 
es: a ee : 
OOF e F9 10$: —INCB ; Seead ‘ 2 
g OU Remi Heli i oe 
Boe RRR TEE Bhs es 
04 Ba 10A CLRW 34 (KFT) é 42 
34 E8 118: BBS DATA_SET, 14$ i $362 
68 PB 11 CALLS i. SASSPC_ALLOC : 
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001¢815C 


BF 
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FF 


SORSRO_CODE + 0000 


350 bytes, Routine Base: 


; Routine Size: 


PSECT SUMMARY 


Attributes 


Bytes 


Name 
SORSRO_CODE 


PIC,ALIGN(2) 


EXE, SHR, LCL, REL, CON, 


350 NOVEC,NOWRT, 


Processin 

Time 
00:00:14 
00:00.1 


SS ee a 
Me 


Pages 
Mapped 


Percent 
$3 

8 

100 
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ded 

105 

33 
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Total 


Library Statistics 
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H COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:SRTSPCBLI/0BJ=08/$: SRTSPCBLI MSRC$: SRTSPCBLI/UPDATE=(ENH$: SRTSPCBLI 
; 2901 L 4389 0 MODULE PSSPAS (IDENT = 'T03-038' ZREQUIRE('SRCS$:DEFSO') ) = 

; 906 4395 1 BEGIN 

3; 290 4396 1 REQUIRE ‘SRC$:DKS'; 

3: 2904 4694 1 EXTERNAL eel 

3; 2905 4695 1 R_CNTL: CA_LINKAGE, ! Error control routine 

3; 2906 4696 1 Pe “ALLOC: CA_LINKAGE, ' Allocate storage from the work area 

; 2907 4697 1 SKIP ATGNORED, ! Skip ignored text characters 

; 2908 4698 1 K ! Skip commas and ignored stuff 

: 2909 4699 1 GET _REXT_SPEC, i Get pointer and Length of next specification 
; 2910 4700 1 GET" SUB_ SPEC, ' Get pointer and length of sub-specification 
3 2911 4701 1 SEARCH TABLE, ' Search a table for a string 

s $31 rit 1 ARS CA_LINKAGE, ! Parse the oer or data clause 

3 291 4703 1 CONV_ CONSTANTS : CA_LINKAGE; ! Convert constant symbol table to 
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TOs-038 1ergeP= 138s 99: 788s | MATL Bb deg 32 oe 


$ 
CISRTSPCBLI.B52;1 (24) 


; 2915 4704 1 GLOBAL ROUTINE PSSPASS_FIVE( $ 
3; 291 4705 1 START: REF VECTORC3) ; 
: 291 47 $ 1 CON_SYM: REF CON SYM JAB, : 
: 594 4707 1 P_CON CNT: REF VECTORLT3, 3 
3; 291 47 3 1 FCD_SYM: REF SYM_TAB, 3 
; 2920 47 1 COX SYM: REF SYM hs 3 
> 2901 4710 1 P_CBX_CNT: REF VECTORC{), ; 
3; 29 § 4711 1 TROT: REF TROT_TAB 3 
: 29 at 1 ): CA_LINKAGE = : 
Be Ng peat : 
3; 29 § 4715 ! Pass 5: perse all /include and /omit spec | fications. $ 
3; 29 oet8 ! finish the temporary record definition table. ; 
; 2928 471 ! create the record definition table from the : 
3; 2929 oei8 ! senperery record definition table. 3 
; 2950 471 ! create the constant table. ; 
3; 2931 4720 ! Build the RDT table 3 
: 836 4721 See eee rrr 3 
3; 293 47 § BIND F 
3: 2934 47 CON_CNT = P= fON_CNTEO?. 3 
; 2935 4724 CDX_CNT = P_CDX_CNTCOJ; 3 
3; 2936 4725 3 
+) re : 
; 2939 4728 KYW_TYPE ! Type of keyword : 
> 2940 4729 SUB"KYW_TYPE, : 
3 3) of 9 KYWELINE, . ! Line number of keyword ; 
3 294 47 ¢ SPC: ECTORL3), ! Next specification Length/pointer/Line 3 
3 2944 47 SUB_SPC: VECTOR(3), ! Sub specification lLength/pointer/Lline 3 
3 2945 4734 coLC: RC3J, ! Collating sequence specification 3 
3; 2946 4735 TROT_CNT; 3 
By om : 
: 949 $738 ! Get the impure area 3 
3 2950 4739 CA_AREA_( CA ); ; 
3; 2951 4740 3 
$988 tbe) ; 
: 954 1508 ' Pass 5: parse all /include and /omit specifications. : 
3; 2955 4744 ! finish the temporary record definition table. 3 
3 328 4745 ! create the record definition table from the 3 
3 5 ores ! sonporery record definition table. 3 
3 328 474 ! create the constant table. ; 
3 +4 aren Build the RDT table : 
3 +d $720 BEGIN ! Pass 5 : 
3 368 $236 output_("pass 5"); : 
3; 2965 tp ! Initialize for pass 5 3 
3 ¢ 4755 BUFFC_LEN) = .START ~bEN}: 3 
3; 296 $736 BUFFC_PTR)_= .STARTC_PTRI; 3 
i: 2968 if8 BUFFCTLINE) = .STARTC_LINE); : 
: 39 47 § ! ints tol fee temporary record defn table count for this pass 3 
3 2971 4760 TROT_CNT = 0; : 
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! Exit loop when th ini ificati 
48 Me i) 7h02? ¥ en there are no remaining specifications 
975 BEGIN 
3f8 LABS 
44 nc lude; 
3f8 KYW_LINE = .BUFFC_L 
980 KYWITYPE = GET TNERT mista BUFFLOJ, SPCCOJ ); 
oe8 } Process the keyword 
98 SELECTONE .KYW_TYPE OF 
986 KWLINCL, KW_OMIT]: ! Make entry in temporary record defn table 
987 include: BEGIN 
988 LITERAL 
989 CDX_SET = 0, 
990 KEY_SET = 1, 
991 DAT_SET = 2; 
99 LOC 


AL 

FLAGS: BITVECTOR(3]; 
IF_.TRDT_CNT GEQ RDT_MAX 
THEN 


BEGIN 
ERR_( .KYW LINE, SORS_WKAREA ); 
RE TORN FAIC; 


o key or data or condition found in include yet 
ELAgsee” XBPUNIT*ZALLOCATION(FLAGS) ,0> = 0; 


' Set the include bit and KFT index 
if YW. TYPE EQL KW_INCL 


= TRUE; 
= > eAEéA_KFT_S1Z): 


BEGIN 
be aah al TROT_INCLUDE] = FALSE; 
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! Initialize the conditional bit to off 
TRDTC.TR TROT ¢ CNT, TROT_CONDX] = FALSE; 
! While ia are mor iaclude or omit sub-specifications 
WHILE .SPCC_LEN] NEQ 

BEGIN 

LABEL 

key; 
KYW_LI “er .SPCC_LINE); 
SUB-KYW_TYPE = GET Sia. SPEC( SPCCOJ, SUB_SPCCO) ); 
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SPC 1 882; 


; 3029 481 ' Check the sub-specification 

.) ran Rama 0 

3 ey: 

: $038 185 ? j LOCAL 

; 4 ? ? § 4 IS_DATA; 

i 30 : 4Beh SELECT. .SUB_KYW_TYPE OF 

: 30 48 

: 5 rt} § 7 Ceu_cone ! Condition 

: 940 48 § LOCAL 

: 3041 4830 INDEX 

: ek rt} 1 STATUS; ! Return status 
: 3044 48 : ! Search the condition fyabel fable for it 
3; 3045 4834 STATUS = SEARCH_TA ae SUB_SPCLOJ, 

: re oo3? INDEX, CDX_SYMCO,BASE_J, .CDX_CNT ); 

: 3048 tB39 ! Condition should not have been set and should have 
; 3049 4838 ! Non-zero Length 

: bay rete ia EQL FAIL OR .FLAGSCCDX_SETI 

: 305 4841 BEGI 

; 088 rer 9 ERR _( .KYW_LINE, SORS_SPCIVI ); ! Invalid include or omit 
BY Bye forte 

: 3056 4845 ' 

3; 3057 4846 ! Condition has been set 

3 bee ri 744 FLAGSCCDX_SET] = TRUE; 

: 3060 4849 ! Put the index in the konger ory 

; 3061 4850 iROTE. TROT CNT, TRDT_CONDX] = TRUE; 

; 06¢ 4891 TROTE.TROT-CNT, TROTTDT_IDX) = 

3 306 4 3 .COX_SYMC. INDEX, “SYM~ INDEX]; 

3008 rth END 

; 066 4855 7 : 

. re EE 

> 3069 4858 

; 3070 $823 IS_DATA = FALSE; 

3; 3071 4860 

: Ors a8 ff gC ACCA REV OVA? 

: 07% 4 8 BEGIN 

:; 3075 4864 9 WRN ( SORS_SPCOVR ); ! Warn of override 
: Off ; 9° 9 LEAVE key; 

; 28 4 $$ ELSE 

; 43 ? re sap, UASSEREY SET2 = TRUE; ! Key has been given 
: 3081 4 ? ? 

5 Oe 4 8 7 CKW_DATA): 

: 30 487 BEGIN 

: 30 487 

; 3085 4874 IS_DATA = TRUE; 
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FLAGSCDAT_SET] = TRUE; ! Data has been given 
END; 

CKW_KEY, KW_DATAI: ! Make entry in KFT table 
BEGIN 
! If this is an o ont then error 
IF .KYW_TYPE EQL KW_OMIT 
THEN 

BEGIN 
ERR_( .KYW_ LINE, SOR$_SPCIVI ); ! Invalid or omit 
LEAVE inclide; 
END; 
!' Parse the hey or gata 
IF PARSE_KEY( SUB_SPCLOJ, .IS_DATA, 
CON_SYMCO,BASE_J, CON_CNT; 
FLD-SYMCO,BASE_J, 
CDOX_SYMCO,BASE_J, CDX_CNT ) EQL FAIL 
THEN 
BEGIN 
ERR_( .SUB_SPCC_LINE], SOR$_SPCIVI ); ! Invalid include or omit 
LEAVE include; 
END; 
END; 

COTMERY I SEa ! Bad include sub-specification 
ERR_( .KYW_LINE, SORS_SPCIVI ); ! Invalide include or omit 
LEAVE include; 

END; 

TES; 

END; 


Jf RIP ConmaS SPCCO] ) EQL FAIL THEN EXITLOOP; 


hey or data set then put default key index in TRDT 
iF or? -FLAGSCKEY_SET] AND NOT .FLAGSCDAT_SET) 


ve TRDTC.TRDT_CNT, TRDT_KFT_IDX] = 0 
tent’ *FLAGSCKEY.SET] AND .FLAGSCOAT_SET] 


ELSE 

THEN IF NOT .FLAGSCKEY_SET] 

EL Pa eKYW_LINE, SORS_INCNOKEY ) 
ERR_( .KYW_LINE, SORS_INCNODATA ); 


mw 5 
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+ 8 197808-1382 90:33:24 YeORT 2.SRC Shisbcoel oS251 . ys 
> 3143 4 § ! Update the number of RDT table entries 3 
: 19 ? ? TRDT_CNT = .TRDT_CNT + 1; : 
> 314 4935 ! Turn continue bit off for Last key field table entr : 
: 3ye9 4936 6 BEGIN , } 
; 3148 49 LOCAL KFT: REF KFT_TABCI; é 
; 3149 49 8 6 KFT = Naw KFT AgR}: ; 
; 3150 49 KFTC.CACCA_KFT_STZJ-1, KFT_CONTINUE] = FALSE; : 
3; 3151 4940 END; 3 
3; 31 § 4941 3 
Hee aate en 3 
: 3155 4944 4 TES; : 
; 3 4945 4 3 
s 31 4946 4 ! Find the next spect tAcet ton. ignore comments and blanks 3 
3 $128 rh oh 2 IF SKIP_IGNORED( BUFFCO] ) EQL FAIL THEN EXITLOOP; : 
: 3160 4949 END; : 
3 as 4950 3 
3 196 4951 ! Add one more RDT entry for the fall-through/default case : 
; 3163 493¢ TF tRDT_CNT GEQ RDT_MA ; 
; 3163 4954 4 BEGIN 3 
3; 3166 4955 4 ERR_( .KYW LINE, SORS_WKAREA ); 3 
; 3162 $328 4 RETORN FAIC; : 
; 3169 4958 ; TROTE.TROT_CNT, TRDT_CONDX) = FALSE: F 
; 3170 4959 3! TRDTC.TRDT-CNT, TRDT-TDT_I0x] = 0; ; 
; 3171 4960 3 TROTCL.TRDT_CNT, TRDT_KFT 10x} = 0; ! 272 1 think this is correct 3 
: 3178 4961 4 -TRDT_CNT T-INCCUDE) = (iF -TROT_CNT EQL 0 THEN TRUE 3 
: 317 496 ELSE NOT .fRDTC.TRDT_CNT-1, TRDT_INCLODE)); ; 
; 174 4963 TRDOT_CNT = .TRDT_CNT + 13 : 
3 3198 4965 ' Anchor address of record definition table to available work area 3 
3; 3177 4966 ' Set the address/size of the record definition table in common area 3 
; 3178 4967 CACCA_RDT_ADRJ = ALLOC_(.TRDT_CNT * RDT_UNIT); ; 
; 3179 4968 CACCATRDT"SIZ) = .TRDT_CNT; ; 
3; 3180 4969 3 
; 18 4955 ? Lit up the record definition table : 
: 318 4972 4 LOCAL 3 
: 13 4975 4 RDT: REF RDT_TABL]; ! Pointer to Record Defn Table 3 
3; 3185 4974 4 RDT = .CACCA_RDT ADR); 3 
: is? 4979 4 DECR IN FROM .TRBT_CNT-1 TO 0 DO ; 
; 3188 497 2 ROTL.IN, ROT INCL URE = .TRDTC.IN, TROT_INCLUDE); 3 
; 3189 oar8 RDTC.IN, RDT_CONDX) = .TROTC.IN, TROT_CONDXJ; 3 
: 3190 497 RDTC.IN, RDT_TDT_IDX] = .TROTC.IN, TROT TOT 10K): 3 
3; 3191 4980 RDTC.IN, RDT_KFT_IDXJ] = .TRDTL.IN, TROT_KFT_IDX : 
: 198 49 ! What aboutkey~ length and data length fields???++++ 3 
: 3194 49 END; : 
3; 3195 4984 
3 196 4985 ' Set the address/size of the constant field table in common area 
; 319 49 § CA CA_CET ADR) = ALLOC_(.CON_CNT * CFT_UNIT); 
: 138 49 CACCA-CFT-SIZ) = .CON_CNT; 
3 31 4988 IF .CON_CAT GEQ CFT_MAX THEN ERR_( 0, SORS_WKAREA ); 
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' Convert the constant symbol Fable tose the foastgne field table 
IF a A DEE CACCA_FDT_ADR], .CACCA_CFT_ADRI, 
ONTSYMLO,BASE_J, .CON_CNT ) EQL FAIL 
BEG] 
ERR_( 0, SOR$_SPCIVS ); ! Invalid specification 
RE TORN FAIL; 


If we're at an odd boundary, allocate another byte 
if ALLOC_(0) THEN ALLOC_(1); 
Determine the lengths in bytes of the fields in the KFT table. 


BEGIN 
BIND 
FDT = GAP EAWEDTADRI: REF FOT_TABC), ! Field definition table 
torar’* = CACCA_CFT_ADRJ: REF CFT_TABCI; ! Constant definition table 
KFT1: REF KET Tage i 
Ke Te REF KFT~TABLJ, 
KFT1 = .CACCA_KFT_ADR]; 
Kr Te = 704 CA-KFT~ADRI; 
DECR 1 FROM .CACCA_KFT_SIZJ-1 TO 0 DO 
BEGIN 


LEN = MAXU(.LEN, KFT_UNITS_(KFT1)); 
i If this was the Last key/data in the group, process the group 


if NOT .KFT1CO,KFT_CONDX) 
THEN 


BEGIN 

WHILE KFT2CO,BASE_] LEQA KFT1CO,BASE_] DO 
KFT CO,KFT_NDE_SIZ] = .LEN; 
27? Check for compatibility 
at = KFT2C1,BASE_]; ! Advance KFT2 


‘eS 0; | ! Reinitialize for the next group 
KFT1 = KFT1C1,BASE_); ! Advance KFT1 
END; 
END; ! Pass 5 


RETURN SUCCESS; 
END; 


-TITLE PSS$PAS 
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~IDENT \T03-038\ 

~EXTRN 

E N 


ECSERR 
“EXTRN SISSKIP_ D 
*EXTRN seer 80 CONMA cusscet NEXT_SPEC 
*EXTRN gss GET~SUB_ SPEC 
SEXTRN STSSEARCH E 
EXTRN PKSPARSE MeEY. CCSCONV_CONSTANTS 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
O7FC 00000 ENTRY PSSPASS_ FIVE, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 4706 
5A 000000006 90 9 0002 MOVA ECSERR. CNTL, R10 ; 
5 C2 00009 SUBL2  # ; 
g 04 aC p 9006 MOVL staat, af? + 4755 
28 AE 60 7D 0001 MOVa (RO) : 
0 AE 08 Ad dO 0014 MOVL  8&(ROS OO UE FSS : 4757 
52 D4 00019 CLRL TR iN + 4760 
54 30 AE DO 0001B 1$: MOVL - BUFF38, KYW_LINE + 4768 
1¢ AE OF OOOTF PUSHAB SPC + 4769 
2C «AE OF 000 : PUSHAB : FF : 
000000006 00 02 FB 000 CALLS , GNS$GET_NEXT_SPEC ; 
59 50 DO 0002C MOVL RO KYW_ TYPE ; 
2A 59 D1 0002F CMPL KYW_ TYPE. #42 3 4775 
03 18 00032 BGEQ 46 3$ : 
01 ‘ 31 00034 a8: BRW 27$ ; 
2B 59 D1 00037 3$: CMPL  KYW_TYPE, #43 : 
FB 14 005A BGTR 28-7 ; 
3F 5¢ D1 0003C CMPL - TRDT_CNT, #63 + 4784 
: 15 0003F BLEG 6 4$ ; 
0158 31 00041 BRW : 
56 94 00044 4$: CLRB FLAGS + 4792 
53 26 03 C5 Bpbeg MULL fa TRDT_CNT, R3 3; 4798 
5 1¢ AC CO 0004A ADDL2 TROT, R3™ : 
2A 59 D1 0004E CMPL  KYW_TYPE, #42 : 4795 
0B if 0051 BNEQ 5$~ ; 
63 01 88 00053 BISB2 #1, (R3) + 4798 
02 «AS OOFD : 90 00056 MOVB  253(CA), 2(R3) : 4799 
11 0005¢ BRB 6$ > 4795 
63 1 BA ' ; 54 B1CB2 #1, (R3) + 4803 
63 2 BA 0006 6§ BICB2 #2. (R3) : 4807 
1c AE OD $ TSTL pe > 4810 
0 | 7 BNEQ ; ; 
00D 9 BRW $ § 
54 24 AE 00 6 8$ MOVL SPC+8, KYW_LINE ; 4815 
AE OF PUSHAB SUB_SPC : 4816 
20 AE 9F 0007 PUSHAB SPC™ ; 
000000006 9 F 76 CALLS H ; GSSSGET _SUB_ SPEC ; 
D 7 MOVL a wTYPE : 
1 0 MOVL ; R ; 4824 
3 a b CMPL Bi five #51 > 4827 
Hi BNEO ; ; 
5 D CLRL oR : 
18 BC OD A PUSHL @P_CDX_CNT > 4835 
14 AC BD PUSHL CDR SYM ; 
08 AE OF PUSHAB INDEX > 4834 
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; Routine Size: 764 bytes, Routine Base: SORSRO_CODE + 0000 
254 043 (1 
32 bee 1 ! ELUDOM 
6 45 13 
3257 8 | 1 EN 
3258 5047 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 


SORSRO_CODE 764 NOVEC,NOWRT, RD, EXE, SHR, 


Library Statistics 


—— Symbols -------- 

File Total Loaded Percent 
~S2aspuage: SORT32.SRCISORLIB.L32; 409 108 26 
“$255$DUA28:(SORT32.SRCISRTSPC.L3 120 35 29 
“$255$DUA28: CSORT32. SRCISFKEYWRD. A :1 a 
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et Te Te tart ete eC 


ADDL2 #8, KFT 
SOBGEQ | 408 
MOVL wi, R 


CLRL RO 
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LCL, REL, CON, PIC,ALIGM<2) 


Pages 
Mapped 


34 00:00.1 
12 00:00.1 
9 00:00.1 


Processing 
ime 


(24) 


PL ISS/ CHECK SCE LELD, INITIAL OPT IRI ZE) /MOTRACE/L 181. 188; SATSPCRL 1 /08.)908/8: SATSPCOLE MSRC$:SRTSPCHLI/UPDATE=(ENHS: SRTSPCBLI 


59 L O68 QO MODULE ICTSIN (IDENT = ‘T03-038' ZREQUIRE('SRCS: 
60 54 1 BEGIN 

61 : 1 REQUIRE ‘ES: DKS'; 

6 1 EXTERNAL eae te - 

6 54 1 CA_LINKAGE, ! Error ¢ 
64 55 1 SORSSDECH: CA_LINKAGE, ! Initial 


DEFSO") ) = 


ntrol routine 


ze for dec-multinational 


4 oft off off 286 off oft 286 288 oft 28 s 


6 

18- -1984 00:53:54 AX-1 V4.0-74 Page 107 
153°088 er8een 188 P8:73:8s — Hobar done asaAesbearT “bse. 9038 
; 1 SORSSEBCDIC: CA_LINKAGE, ! Initialize for ebcdic 
: 1 COLLSBASE, ! Define the base collating sequence 
: 1 COLLSNEXT i Define the n haracter 
; 1 COLLSMODIFY, i Makes modification 
3 1 COLLSFOLD ! Fold lower case te upper case 
: 1 COLLSUPPER, iy per case comparison 
3 1 SKIP_COMMA, : sk p commas and ignored stuff 
; 1 GET_CHAR_CLAUSE, ! Get character clauses of various kinds 
: 1 GET_SUB_SPEC; ! Get pointer and length of sub-specification 


6 
163-038 1-88-1982 99:70:82 HORT Se°sReSsetsbeacr 082; Page 38 
SOA UE IN Df aE bac 
CD: "REF vECTORESS ): CALLINKAGE = 
Functional Description: 


> ee | 


VSWR —ODOONOu 


Initialize the Primary Table and Secondary Table. 
Formal Parameters: 


CA_AREA_( CA ); 
output_(‘init_cs_tab'); 


EHARIEND = 0% 


' Is there a sequence sub-c Lause? 
IF .SUB_SPECC_LENJ EQL 0 THEN RETURN FAIL; 


Save pointer and length since get_sub_spec modifies its input 
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; 1 

; 1 

: 1 

; 1! 

: 1} 

; 1} 

; 1! 

H 1! 

: 1! 

; 1! 

; 328 1 ! SUB_SPEC=- The address of length/pointer/Lline defining the sequence 
: 86 ! CD - Length/address of the collating description work area 
; ss : | Implicit Inputs: 

: i . 

: oy ! Implicit Outputs: 

: 329 1 ! Routine Value: 

; 329 : 1! 

3; 3294 3 1! SUCCESS 

; 95 RH : FAIL 

: 39 3389 1 | Side Effects: 

ee 

: 3300 90 2 BEGIN 

1s i eappeen 

: 3308 3395 TEMP_SPC: VECTORE 3}. ! Temporary to hold Llength/pointer 
: 3303 233¢ od vecToR(3j, 

: 3306 2396 CS TYPE, ! Collating sequence type returned from get_k w_type 
; 3307 5397 CHE: VECTOR(C4,BYTEJ; ! Characters returned from get_c arvcladse 
; 3308 5398 LOCAL 

: 4 5399 KYW_LINE, 

: 3 ¢? ? nae VECTOR(4, BYTE), 

: 331 54 . 

; 331 54 : ! Sets collating sequence type for sort-11 statistics 

; 331 M 5404 MACRO SET_STATS ( X ) = 

: 3 . e 5 af %BLISS(BLISS16) 

; 31 M3209 CAL COM_COL_SEQ_ ) = X = SORS_STASCI 

3 $1 ee 3 RFI 2; 

: 332 34 

; 4 ’ 

; 4 § 

: 414 

; ? 5 

; 4 § 

; 4 é 

: 420 

3 5421 


WAAL ANAA AA 


Ww 
— 


on 


rae 


SORT aSReISRYSPCOLT 882; 
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; te$ 2 5 } GLOBAL ROUTINE DO_FOLD(CD: REF VECTORC2]): CA_LINKAGE NOVALUE = 
: 3448 2 § 1 !+¢ 

3 re 3 ! Functional Description: 

s tt i 1 Fold the lower case characters onto the upper case. 
: 438 246 : Formal Parameters: 

; 12? re ! cD = Length/address of the collating description work area 
: 3457 46 1! Implicit Inputs: 

i 3458 atry 4 5 PHOtIENS ee 

3; 3459 5548 1°! Implicit Outputs: 

; 3460 5549 1! 

3; 3461 5550 1 ! Routine Value: 

3 s70§ 5551 1! 

3; 346 2226 7 3 SUCCESS 

3 seee 5553 1! FAIL 

; 3465 5554 1! 

: 3466 5555 1! Side Effects: 

3; 3467 2228 1! 

3; 3468 5557 1 !-- 

3; 3469 5558 BEGIN 

3; 3470 5559 LOCAL 

3 3471 5560 LOWER: BITVECTOR(256], 

3 $058 5561 CHAR1 MS Bh tO IAL SE 

3 347 2206 CHAR2: VECTOR(4,BYTEI, 

: sefe 556 3 

3; 3475 5564 2 

; 3476 5565 : CA_AREA_( CA ); 

3 Ad 5566 

3; 3478 5567 output_('do_fold'); 

3; 3479 5568 

: rts} 225? CHSFILL(O, ZALLOCATION(LOWER), LOWERCO]); 

3 re) 5571 (LOWER Bx 68; 23<8-16-0> = XX'FFFE'; 'a-2z 
3; 348 a3f6 (LOWEREZX'70'J)<0,16,0> = ZX'O7FF'; 

: 3484 557 

3; 3485 5574 IF .CACCA_BS_DECM) 

3; 3486 5575 THEN 

3; 3487 5576 BEGIN 

; 3488 5577 See ee Ee EO. 13 0-16-02 = ZX'FFFF'; ! a accent grave - y umlaut 
; 4 2278 (LOWERCZX'FO'J)<0,16,0> = ZX'3FFE'; 

: rp 43 END; 

; 349 581 S = COLLSFOLD(CDCOJ], LOWERCOJ, %x‘'20'); 

> 349 5 é IF_ERROR_( .S ) THEN (ERR_(O, .S); RETURN); 

> 3494 5 

; 3495 5 RETURN; 

: 3496 228? 

3; 3497 586 1 END; 
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N 
ICTSIN -Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-7 P 14 
163-038 ett) Pe PM TEE tantly Tea age 3h 
SE wi p H gENrgy We, SP poLe. Save R2,R3,R4,R5 3; 5535 
20 00 6E 60 SE > moves #0, (SP), #0, #32, LOWER + 5569 
C AE O7FFFFFE 8F DO MOVL #134217726, LOWER+12 + 5571 
08 % A 3 E17 0001 BBC j Tata, + 5574 
1¢ AE 3FFEFFFF F DO MOVL #1073676287, LOWER+28 3 5577 
0 pb 0 1$ PUSHL 3; 5581 
04 AE F 00 PUSHAB LOWER : 
04 ag DD 000 PUSHL F 
000000006 00 0 Fe 00 CALLS #3, COLLSFOLD ; 
08 23 E Be F BLBS S$, 2$ 3; 5582 
DD 2 PUSHL ; 
3 D4 00034 CLRL -(SP) F 
000000006 00 02 FB 00036 CALLS #2, ECSERR_CNTL 3 
04 0003D 2$: RET ; 5586 
; Routine Size: 62 bytes, Routine Base: SORSRO_CODE + 012C 
3; 3498 5587 1 
3; 3499 5588 1 
; 3500 5589 1 ! ELUDOM 
: 3501 5590 1 | 
; $208 5591 1 END 
; 350 5592 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: SORSRO_CODE 362 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eocococe Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 


_$2 $5R0UN8 SORT32.SRCJSORLIB. 13231 409 103 24 34 00:00.1 
“$255$DUA28:( SORTS -$ CISRTSPC.L 120 5 12 00:00.1 
“$255$DUA28: CSORT32. SRC ISFKEYWRD. §), :1 

1 1 100 9 00:00.1 
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; COMMAND QUALIFIERS 


: BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$:SRTSPCBLI/08J20BJ$:SRTSPCBLI MSRC$:SRTSPCBLI/UPDATE=(ENH$:SRTSPCBLI 
3; 3504 L 238 MODULE SDECM$ (IDENT = 'T03-038' XREQUIRE('SRC$:DEFSO') ) = 
; 3505 99 BEGIN 
3 289 908 1 REQUIRE ‘SRC$:DKS'; 
: 0 9 1 EXTERNAL ROUTINE 
; 208 899 1 COLLSNEXT, ' Collate char after all others 
; 350 900 1 COLLSBASE ' Define the base gol lating sequence 
; 210 301 1 COLLSMODIFY, i Make a modification 
: a) O08 : COLLSUPPER; ! Upper case comparison 
: 21 904 1! Define the successful status returned by these routines 
3 a2 444 } It should aleady be defined for bliss16 and should equal 0 
: 516 5907 1 XIF NOT XDECLARED(SS$_NORMAL) XTHEN LITERAL SS$_NORMAL = 1; %FI 
3; 3517 5908 1 
 ‘/ arene nen enna enn ee, 
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VerSep-1986 13:10:36 SST S2°SReSsRTsPCae1 842: Page 38) 
GLOBAL ROUTINE SORSSDECM( 
: REF VECTORC2) 
): CALLINKAGE = 

i++ 
i Functional Description: 

Initializes a table for the dec multinational collating sequence. 
Formal Parameters: 

CD - Length/address of the collating description work area 
Implicit Inputs: 

None. 
Implicit Outputs: 

None. 
Routine Value: 


0 on error. 
1 for sucess. 


Side Effects: 
None. 
Notes: 


After the call to this routine, the following calls still should 
be made: COLLSPAD, COLLSRESULT. 


aerial ted ed et et te te te te te te te te te te ee 


BEGIN 
LOCAL 


! Get the impure area 
CA_AREA_( CA ); 


output_('sor$$decm'); 


S = COLLSBASE(CDLO], DEC TABLO)); 
IF ERROR ( .S ) ped RETORN .S: 

S = COLLSUPPER(CDCO), DEC_UPPLO)); 
IF _ERROR_( .S ) THEN RETURN .S; 


! Small sharp s (DF), collates same as SS (33.55) 
OE dipthong (D7) collates same a OE (4F,45) 


§ = COLLSMODIFY(CDLOJ, UPLIT WORD(1,%X"DF"), UPLIT WORD(2,'SS"), 0); 
if ERROR ( .S ; 


= 
~S ) THEN RETURN .S 
= COLLSMODIFY(CDEOI. UPLIT WORD(1,%X'D7"), UPLIT WORD(2,"0E"), 0); 
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3; 
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N_ RETURN 
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RETURN SS$_NORMAL; 
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H 7 
SDECM 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 121 
TS eat aaa Pa Pe ge 9° 8) 
7E 04 4p Ls =( SP) : 6071 
AA AF fF GF PUSHAB’ P.AAH : 
A3 AF OF 09 PUSHAB P.AAG ; 
52 DD 000 PUSHL R : 
63 9 Fe 005 CALLS #4, COLLSMODIFY : 
0c 0 005A BLBC OSS + 6072 
0080 (CB 4 4 005 BIse2 #1, 128(CA) + 6074 
79 «AB 8 B88 0006 BISB2 #8, 121(CA) + 6075 
50 01 00 0066 MOVL #i, + 6077 
04 00069 1$: R + 6079 
; Routine Size: 106 bytes, Routine Base: SORSRO_CODE + 021C 
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; 369 6080 
; 369 yt 1 
; 3694 6 § 
; 3695 4 

; 369 6084 
; 369 6085 
; 3698 60 § 
; 3699 608 
; 3700 6088 
3; 3701 6089 
; 370 6090 
; 37 6091 
; 37 O86 
3; 3705 609 
; 3706 6094 
3; 3707 6095 
; 3708 6096 
; 3709 6097 
3; 3710 609 
3; 3711 609 
3 at 6100 
3; 371 6101 
3 3714 o1d6 
3; 3715 610 
3; 3716 6104 
3; 3717 6105 
3; 3718 9198 
3; 3719 610 
3; 3720 6108 
3: 3721 6109 
3; 37 ¢ 6110 
3; 37 6111 
3; 3724 oil¢ 
3; 3725 611 
3; 3726 6114 
3; 3727 6115 
; 3728 6116 
3; 3729 611 
3; 3730 6118 
3; 3731 6119 
3; 37 ; 6120 
s 37 6121 
3; 37 61 § 
3; 3735 61 

s 37 6124 
tao ap Er 
; 3739 61 $ 
3; 3740 61 8 
3; 3741 61 

3 reg 6130 
3: 374 6131 
3: 3744 61 4 
3; 3745 61 

3 ron 6134 
3; 374 6135 
; 3748 6136 
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ibe Sep-1984 13:10:56 Sort S2°snedsavsPcal1.082;1 Page 185 
GLOBAL ROUTINE SORSSEBCDIC( CD: REF VECTORC2] ): CA_LINKAGE = 
'o¢ 
{ Funct ional Description: 
Initializes a table for the ebcdic collating sequence. 
{ Formal Parameters: 
CD - Length/address of the collating description work area 
| ImpLieit Inputs: 
None. 
| ImpL ie Outputs: 
None. 
{ Routine Value: 


0 on error. 
1 for sucess. 


i Side Effects: 
None. 
i Notes: 


After the call to this cour ing. the following calls still should 
be made: COLLSPAD, COLLSRESULT 


! Get the impure area 
CA WAREA_( CA ); 


output_ matters 
CHAR1 

CHAR1 = 

= 

CHAR = 

! First half 

S$ = COLLSBASE 
IF_ERROR_( .S 
! The second hal 


0: 
0; 
of 
( 

) N’RETU 


the primar 
cDLOI” EBC eryast03") 
THEN 
f collates the same as the SUB character (%X'1A') 


TO8-088 


3; Routine Size: 


~~ 
™~ 
ow 


SANS 
COoOummuiuwi 


“J 
o 
WO OONOU LS Wwrn— 


~ 
o 


13 CHAR2E 2 ) = &X"1A'; 
61 § INCR I FROM %X'80" TO &X'FF' DO 
14 BEGIN 
614 CHARIC 2) = 1; 
614 $ = COLL SMODIF ¥¢ coco) CHARI 
6144 IF_ERROR_( .S ) THEN RETURN .§; 
6145 
6146 END; 
6148 CHARIC2) = %X'FF 
614 § = COLLSNEXT( FF tod, CHAR1 ); 
6190 IF_ERROR_( .S ) THEN RETURN .§; 
613¢ RETURN SS$_NORMAL; 
61535 1 END; 
0004 00000 
SE 08 C3 90002 
04 AE 1 6 9000 
6E 01 BO 06009 
000000006 00 9F 6900 
4 AC DD 0001 
000000006 00 Q FB 0001 
40 £9 001¢ 
02 A 1A 90 O001F 
5 80 er 9A 00023 
06 AE 2 90 900 7 1$: 
7E p4 0028 
04 AE 9F 00020 
O¢ AE 9F 000 : 
4 AC DD 000 
000000006 00 4 FB 000 
DF 35 000000F F ° . tint 
06 «AE 1 bE 0048 
04 AE 9F 0004C 
000000006 = § Pe bos. 
9 0 Es Hite 
0 01 00 09 C 
04 OOOSF 2$: 
96 bytes, Routine Base: SORSRO_CODE + 0286 


ss =| 
127868} 


CHAR2, 0); 


abe 8:70:82 Stat 


SORTS2.SRCISRTSP 


Bliss-32 


sonseeceic. Save R2 


#2, COLLSBASE 
#26, CHAR2+2 


¢ 

#4, COLLSMODIFY 
we55, 1, 1$ 
A CHARI+2 

ie, 2foLlsnent 
i, RO 
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Kk 7 
S$ 16-Sep-1984 00:53:54 AX-11 Bliss-32 V4.0-74 Page 124 
Ta ket 1er8ee=13RE 99:35;82 — HeMatboPShessResbealT 682.1 oe 385 

3 4 
3; 4 
3 4 
3; 4 
3 4 
3 4 

; PSECT SUMMARY ; | 

; Name Bytes Attributes ; 2 

; SORSRO_CODE 742 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) i 4 
: 4 
3 4 
3; 4 

; Library Statistics if 

: See ee Symbo ls oe ae ae me Pages Processing : 4 

; File Total Loaded Percent Mapped Time : 2 

: _$255$DUA 8: (SORTS2. SRC]SORLIB.L 32; 1 409 102 24 34 00:00.1 ; 

3 meetin 8: CSORT32.SRCISRTSPC.L32;1 120 8 6 12 00:00.1 

$ 7$255$DUA28:CSORT32.SRCISFKEYWRD.L $2; 1 

5 1 1 100 9 00:00.0 

; COMMAND QUALIFIERS 

; PLISS/CHECK SCE IELD. INITIAL OPTIMIZE) /MOTRACE/L 1S. 188s SATSPCBL I /0R 08/8: SATSPCRL MSRC$:SRTSPCBLI/UPDATE=(ENH$:SRTSPCBLI 

: Haas L 6160 0 MODULE GFSS$GE (IDENT = 'T03-038" ZREQUIRE('SRC$:DEFSO') ) = 

3; 377 6166 1 N 

3; 3774 6167 1 REQUIRE ‘SRC$:DKS'; 


cr Sct 1$-Se0-1984 00:55:54 YAKTL Lisg-32 ys.0-742, age, 125 
Je 


: 377 6465 1 GLOBAL ROUTINE GET_FILE_SPEC( DESC: REF VECTORC3], STRING: REF VECTORC3) 
: ght Bee? | tee 

; 8 e788 ! Functional Description: 

; 781 e470 Get the file specification in DESC. 

: 788 th ! Formal Parameters: 

: 3785 6474 1 | DESC - Address of length/address to searc 

3 78 oot? ! STRING = Address of stored length/address ot string. 
: 3788 gery yi Implicit Inputs: 

3; 3789 6478 1 | 

; 0 path : None. 

: 732 ecb ! Implicit Outputs: 

. en eo 

: re yan $ ! Routine Value: 

: 3798 6487 1! SUCCESS 

ae OBB) te 

: 3801 6490 1 | Side Effects: 

3; 380 6491 1! 

; 380 6492 1 I- 

3808 198 2 BEGIN 

; 649 QUOTED, ' Are we in a quote 

3; 3807 6496 BRAKET, i Are we in brackets 

3 Spe ah 4 LENGTH; ! Length of the found string 

; 3810 eh 44 output_("get_file_spec'); 

; B12 6501 QUOTED = FALSE; 

3 ai? b206 BRAKET = FALSE; 

: 3815 6504 t initialize length 

1 ee 8 ial 

: 3818 6507 t Set pointer to string 

; 19 $208 STRINGL_PTR -DESCC_PTRI; 

; 9 6908 STRINGC-LINE) = .DESCC_LINE); 

; 3 6511 ! Find the string 

; Gale WHILE TRUE DO 

3 3 eet? BEGIN 

; $ e312 IF .DESCC_LEN) LEQ 0 THEN EXITLOOP; ! Out of input 
; é 3 £218 Look at the next character 

: 8 o2t8 SeLEC TONE CHSRCHAR(.DESCL_PTRI) OF 

> 3831 6520 

3; 3832 rea CC_NULL,C_SPACE,C_TAB,C_EXCLAM,C_L_PAREN,C_R_PAREN,C_EQUAL]: 


m 7 
TOSOs 1er$8p-1984 19:10:54 — ESdatdzesneSsatsbeéei 082: non Bt 


~+ 
oO 
LA 


2 : ; 3 ; IF NOT .QUOTED THEN EXITLOOP; ! Are we inside of a quote? : : 
3 5 6524 CC_COMMA): ; 4 
; § 6 5 IF NOT .QUOTED THEN 3 4 
3 | 4 $2 $ If NOT .BRAKET THEN EXITLOOP; ! Inside of Cnnn,nnn]? : 2 
; 373 6528 CC_LBRACK,C_LESS): + 4 
; 3840 6529 IF NOf 7QUOTED 3 4 
; 3841 6530 3; 4 
; Bae 6531 4 BEGIN 7 4 
; 384 65 é 4 IF .BRAKET THEN RETURN FAIL; : 4 
3 3844 6 4 BRAKET = TRUE; ; 4 
3 3845 6534 END; 3 4 
3 35846 6535 3 4 
: 3847 65 $ CC_RBRACK,C_GREATER): : 4 
; 3848 633 IF NOt sQUOTED : 4 
3 3849 6538 THEN 3 4 
; 3830 6539 4 BEGIN 7 4 
3 3851 6540 4 IF NOT .BRAKET THEN RETURN FAIL; 3 4 
: 383¢ 6541 4 BRAKET = FALSE; 7 4 
; 385 9286 3 END; 3; 4 
+ 3854 654 4 : 4 
; 3855 6544 CC_QUOTE): ! Character ''" : 4 
; 3896 6545 QUOTED = NOT .QUOTED; : 4 
; 3857 6546 3; 4 
3; 3858 6547 COTHERWISE): : 4 
; 3859 6548 3 0; 3; 4 
3; 3860 6549 3 3; 4 
3; 3861 6550 : TES; : 4 
: ser8 6551 3: 4 
3 386 6334 ; ' Update the values : 4 
3 3864 655 DES pir = ~DESCE PTR} + 1; : 4 
; 3865 6554 3 DESCCILENJ = .DESCCILEN] - 1; 2 4 
3 3866 6555 : 4 
; 3867 6556 LENGTH = .LENGTH + 1; 4 
3 3868 6557 3 4 
; 3869 6558 END; i: $ 
3 3870 6559 3 4 
; 4 6960 IF .BRAKET OR .QUOTED THEN RETURN FAIL; : 2 
3 He 636¢ IF (STRINGC_LEN] = .LENGTH) EQL 0 : 4 
; 3874 656 THEN : 4 
; 3875 6564 RETURN FAIL : 4 
; 876 6565 2 
; 387 6566 RETURN SUCCESS; : 
; 3878 6567 : 4 
; 3879 6568 END; 7? 
: 4 
.TITLE GFS$G : 4 
~ IDENT 103°038\ 27 
$2 
-PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 : é 
003c 00000 -ENTRY GFSSGET_FILE_SPEC, Save R2,R3.R4,R5 3 6465 3 4 
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GFS$ b-se Sep-1 7:53:54 AX-11 Bliss-32 V4.0-74 P 

Thee o8s yer8Sp- 1882 F9:73:8 Heber bo8snedsaesbeacr as2.1 age 15 
04 00096 RET : 

; Routine Size: 151 bytes, Routine Base: SORSRO_CODE + 0000 

; 3880 6569 1 

; 3881 eety 1 

; 388 6571 1 ! ELUDOM 

; 388 $226 1! 

; 3884 bef 1 END 

; 3885 6574 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: SOR$RO_CODE 151 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

ES eke oe UNC an oF cee og Te Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SORT32.SRCISORLIB.L32;1 409 4 0 34 00:00.1 

: _$255$DUA28: sont es Seiden ar csk mea) 120 17 14 12 00:00.1 

: 7$255$DUA28:CSORT32. SRCISFKEYWRD.L $2; 1 

; 1 1 100 9 00:00.0 

; COMMAND QUALIFIERS 

: PLISS/CMECKOCE FELD, INE TIAL OPTIAIZE) /HOTRACE/L It, 188 SRTSPCRL 1/08J908)8s SRTSPCOL! MSRC$:SRTSPCBLI/UPDATE=(ENHS$: SRTSPCBLI 

3 B56 L 6575 9 MODULE PCSPAR (IDENT = *T03-038' XREQUIRE('SRC$:DEFSO') ) = 

; $28) BEGIN 

; 3888 65 1 REQUIRE Bi 

3; 3889 68 1 EXTERNAL ROUTINE 

; 3890 6 1 ERR_CNTL: CA_LINKAGE, ! Error control routine 

; 3891 6 § 1 SPC_ALLOC: CA_LINKAGE, i ar locate storage rom the werk area 

3 96 6 1 SKIP_COMMA i Skip commas and ignored stuf 

3; 389 6884 1 GET sue. SPEC, i Get "pointer and len bs of sub-specification 

3: 3894 6885 1 init CS-T CA_LINKAGE, ! Init at ize primary 8 

; 3895 6886 1 FOL 37 8 CA_LINKAGE *NOVALUE! ! Fold lower case characters to upper 
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; 38 6887 1 PARSE _MOD: CA_LINKAGE, Parse a modification clause 

; 389 6888 1 PARSE_IGN: CA_LINKAGE; Parse an ignore clause 

; 3898 6889 1 EXTERNAL ROUTINE 

; 3899 6890 1 COLLSINIT, ! Initialize collating sequence 
; 3900 6891 1 COLLSFOLD ' Fold lower case to upper case 
: 3901 6892 1 COLLSTIE_BREAK, i Indicate tie-breaking 

; 390 6893 1 COLLSPAD ! Indicate the pad character 

; 390 6894 1 COLLSUPPER ! Upper case comparison 

: 3904 6895 1 COLLSRESULT; i Build the final tables 
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Routine Value: 
SUCCESS/FAIL 
Side Effects: 


dD 8 
PCSPAR 16-Sep-1984 00:53:54 AX-1 32 v4.0 Page 130 PK’ 
ae 00:95:82 SORT 2° sneish SRTSP CBLI. ago, 31 . (31) T0 
9 689 GLOBAL ROUT INE PARSE COLL 
309 6 3 DESC: REF VECTO RC3] ): CALLINKAGE = 
908 6 38 
909 689 '4+ 
910 6 $Y ' Functional Description: 
313 $902 7 P th Llati ificati 
arse the collating sequence specification. 
318 $308 ! ° 
914 6904 i Formal Parameters: 
312 rena DESC Add f length/add f the text 
ress of len address o e text. 
917 ot ! ° 
18 6908 i Implicit Inputs: 
19 69 i 
0 69 i None. 
1 69 i 
§ 69 i Implicit Outputs: 
69 i 
4 69 i None. 
5 ' 
6 i 
7 i 
8 i 
9 i 
0 i 
; - 
34 
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09 
10 
\) 
18 
14 
6915 
6916 
6917 
6918 
6919 
6920 
6921 
69 ¢ 
69 BEGIN 
6924 OCAL 
6925 COLL DESC: VECT on 
6926 UB_BESC: VECTO 
6927 PAD=C CHAR: VECTOR 4 sterey. 
38 6928 INE 
39 6929 
40 6930 
941 6931 LOCAL 
beh 6336 MODIFIED; 
94 69 
4 6934 ! Get the impure data area 
45 4 5 CA AREA_( CA ); 
oe output_("parse_coll"); 
949 6939 COLL BESEETY = -CALCA_WRK_ENDJ~.CACCA_WRK_ADRI; 
Bey ore COLL" DESC = ALLO 0) 37 
326 Oot S$ = COLL SINE TCC OUL, VESCCO)); 
337 o0e7 IF_ERROR_( .S ) THEN (ERR_(.DESCC_LINEJ, .S); RETURN FAIL); 
3; 3955 6945 KYW_LINE = .DESCC_LINE]; 
3 328 2908 
3 3 one | The first clause must be SEQUENCE=... 
3 985 rere IF GET_SUB_SPF£( DESCLO], SUB_DESCCO] ) EQL KW_SEQU 
; 3960 $330 THEN 
; 3961 695 BEGIN 
; 3962 6952 ! Cal! routine to initialize collating ‘ables 
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3 3 6953 IF INIT CS_TAB( SUB_DESCCOJ, COLL_DESCCO] ) EQL FAIL 

PP HY Hotton sn. 

; 366 9 d PRR -KYW LINE, SORS$_SPCIVC ); ! Invalid collati 

; ! Inva collating sequence 
; 369 69 : RETORN’F AIC; . 
; 3968 69 8 END; 

; 3969 69 IF .SUB_DESCC_LEN] GTR 0 

; 3970 6960 THEN 

; 3971 6961 4 BEGIN 

; 397 $206 4 ERR ( .KYW LINE, SORS_SPCIVC ); ! Invalid collating sequence 
; 397 6963 4 RETORN FAIL; 

; 3974 844: END; 

; 3975 965 END 

; 397 208 

; 397 696 BEGIN 

; 3978 6968 ERR ( .KYW_LINE, SORS_SPCIVC ); ! Invalid collating sequence 
3; 3979 6969 RETORN FAIC; 

; 3980 6970 END; 

; 3981 6971 

: 398 697 

; ear 244 While there are more collating sequence sub-qualifiers 

; 3985 6975 WHILE SKIP_COMMA( DESCCO] ) NEQ FAIL DO 

; 3986 697 BEGIN 

:; 3987 697 

; 3988 6978 KYW_LINE = .DESCC_LINE]; 

3; 3989 6979 

3 6980 MODIFIED = FALSE; 

3; 3991 6981 

; 399 698 SELECTONE GET_SUB_SPEC( DESCCO], SUB_DESCCO] ) OF 

; 399 698 SET 

3: 3994 6984 

; 3995 6985 Ckw_ wath 

; 6986 4 “BEGI 

3; 3997 6987 4 Ca tt routine to ai collatin uence tables 

; 3998 6988 4 ir PARSE_MOD( SUB_DESCCO], COLL_D ste £83) ) EQL FAIL 

3; 3999 6989 4 THEN 

; 4000 6990 BEGIN 

; 4001 6991 ERR_( YY LINE, SORS_SPCIVC ); ! Invalid collating sequence 
: 400 699 RE TORN AIT; 

: 400 6993 4 END; 

3; 4004 6994 4 

; 4005 6995 4 MODIFIED = TRUE; 

3 1008 6 

3 6 699 END; 

; 4008 6998 

3 rhs t4 3444 i Ceu_ Teno): ! Specify ignored characters 

3 4011 7001 4 ! Call routine fe B pecee he ig nore clause 

3 sole 7 § 4 IF PARSE_IGN( SUB_DESCCO ofL -DESCLO) ) EQL FAIL 
HBR “4 

> 4015 7005 ey LINE, SORS_SPCIVC ); ! Invalid collating sequence 
3 2318 7 RETORn AIC; 

3 $3 7 4 END 

3 4 13 7 3 4 

; 401 7 4 MODIFIED = TRUE; 
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; 4020 7010 4 

49 1 1 ; END; 

: 40 j 8 CkW_FOLD): 

te et 

: rt 8 7 18 4 ! Perform the folding when found 

7 4 7017 4 : Note that if modifications are made to a dec_multi 
; 40 8 7 18 4 : Sequence, folding may have to be done after mods 

; 49 ? , 19 4 DO_FOLD(COLL_DESCLO3); 

; 49 1 , 1 4 MODIFIED = TRUE; 

Be OMY o@: 

> 6035 7025 CkW_TIEB): ! Tie-breaking 

1089 ross aban 

; 49 8 20 ‘ 4 CACCA_TIE_BREAK] = TRUE; 

: 46040 7030 4 MODIFIED = TRUE; 

3 4041 7031 4 

Be Bay oe 

> 4044 7034 [kw_NOTI): ! No tie_breaking 

3 chek 4 5 ? BEGIN 

: 4067 £0 ; 4 CACCA_TIE_BREAK] = FALSE; 

: 4049 tba 4 MODIFIED = TRUE; 

: 4050 7040 4 

; 4051 7041 ; END; 

; 4088 7048 ? COTHERWISE): ! Bad collate sub-specification 
: 4055 7045 4 ERR_( .KYW_LINE, SORS_SPCIVC ); ! Invalid collating sequence 
3; 4056 P0eg 4 RETORN FAIL; 

: 4057 704 END; 

: 4058 2048 

£080 1086 we 

: 4061 2051 If ,SUB_DESCL_LENJ GTR O 

: 4 5 ? 3g 4 GIN 

3 4 54 4 ERR ( .KYW LINE, SORS_SPCIVC ); ! Invalid collating sequence 
+ 4065 7055 4 RETORN FAIC; 

; 4066 7 36 END; 

34 705 

; 2 7 8 END; 

> 6070 U 5 ZIF XBLISS(BLISS16) XTHEN 

: 4 4 u 7 IF jMODIFIED EQL ON 

: 6 i U : § CAC COM_COL_SEQ_ ] = .CAC COM_COL_SEQ_ } + 4; 

Be Mg om 

: 6076 7 IF .DESCC_LEN) GTR O 
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; 4077 67 THEN 

; 407 6 BEGIN 

; 407 : ERR ( .KYWLINE, SORS_SPCIVC ); ! Invalid collating sequence 

; 4080 RETORN FAIC; 

; 4081 f 71 END; 

; 40 if 

; 408 707 IF .CACCA_TIE_BREAKI 

3: 4084 7074 THEN 

3; 4085 7075 BEGIN 

3; 4086 7 ug ! 

; 4087 707 ! Indicate tie-breaking. 

: toes f 8 } ALWAYS reverse the sense of the CMPC comparison. 

; 4090 7080 ! S = COLLSTIE_BREAK(COLL_DESC }. .CACCA_BS_DECM]); 

3; 4091 7081 S = COLLSTIE_BREAK(COLL_DESCLOJ, TRUE); 

; 409 70 § END 

; 409 re ELSE 

3: 4094 7084 BEGIN 

; 4095 7085 ! 

3; 4096 7086 ' Don't use the upper table if there is no tie-breaking. 

$ ria 4 if Currently, this is only needed if CA_BS_DECM is set. 

3; 4099 7089 S = COLLSUPPER(COLL_DESC(0OJ, 0); 

3; 4100 7090 END; 

; 4101 2091 IF_ERROR_( .S ) THEN RETURN (ERR_(.DESCC_LINEJ, .S); RETURN FAIL); 

3 e108 709 

> 4104 7094 PAD_CHAR(O) = 1; 

3 4105 7095 PAD_CHAR(C1] = 0; 

> 4106 709 PAD-CHARC2] = .CACCA PAD]; 

3: 4107 709 S = COLLSPAD(COLL_DESCCO), PAD CHAR); 

3 rth 44: IF _ERROR_( .S ) TREN RETURN (ERR_(.DESCC_LINE), -5); RETURN FAIL); 

3 4110 7100 S$ = COLLSRESULT(COLL_DESCCOJ, COLL_DESCCO)); 

3 aii) 3) IF_ERROR_( .S ) THEN RETURN (ERR_(7DESC LINE], .S); RETURN FAIL); 

7” 

3 418 7108 } Store the address and length in the common area 

3 4115 7105 CACCA_ST_S1Z] = .COLL_DESC(O); 

: 4116 £106 CACCATST-ADR] = ALLOC7(.COLL_DESCCO); 

3; 4118 7108 RETURN SUCCESS; 

3 4119 7109 END; 
-TITLE PCS$PAR 
IDENT \T03-038\ 
eEXTRN ECSERR_CNTL, SASSPC_ALLOC 
~EXTRN sCSSnIF COMMA GSSS$GET_SUB_SPEC 
-EXTRN ICTSINIT cS_TAe 
-EXTRN DFS$DO_FOCD, PMSPARSE MOD 
TEXTRN PISPARSE IGN, COLLSINIT 
-EXTRN COLLSFOLD, cOLLSTIE BREAK 
eEXTRN COLLSPAD, COLLSUPPER 
-EXTRN COLLSRESUL 
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P 1b-se Sep-1984 00:5 AX-11 Bliss-32 V4.0-7 Page 136 PT 
tH 8 ~300n 138% 99: 73: 34 SORT32.SRCISRTSPCBLI. 3 2:1 ° di 10! 
: 4123 7113 1! : 4 
5 4104 7114 1 END : 4 
; 4125 7115 0 ELUDOM ef 
4 

gs 4 

3 4 

if 

: PSECT SUMMARY i 4 
; Name Bytes Attributes y 
: SORSRO_CODE 354 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : ‘ 
: 4 

3 4 
3; 4 
; Library Statistics : , 
Sy a ae ee Pee eon 4g, Symbols -------- Pages Processing : 4 
; File Total Loaded Percent Mapped e 2] 
: _$255$DUA28:CSORT3 - $RCISORL 18.132: 1 409 103 25 34 00:00.1 i: 4 
; ~$255$DUA28:CSORT32.SRCISRTSPC.L32;1 120 11 9 12 00:00.1 3 4 
3 7$255$DUA28: CSORT32. SRCISFKEYWRD.L $2; 1 3 4 
; 1 1 100 9 00:00.0 : , 
: 4 
3 4 
3 4 
3 4 
if 
; COMMAND QUALIFIERS i 4 
: BLISS/CHECK= (FIELD, INITIAL ,OPTIMIZE) /NOTRACE/LIS=LISS:SRTSPCBL1/0BJ=0BJ$:SRTSPCBL! MSRC$:SRTSPCBLI/UPDATE=(ENHS$: SRTSPCBLI 3 ‘ 


3 rh $ L P16 9 atts PKSPAR (IDENT = ‘T03-038' ZREQUIRE('SRCS$:DEFSO') ) = 

3; 4128 71 : 1 REQUIRE ‘SRC$:DKS'; 

3; 4129 7421 1 EXTERNAL ROUTINE 

: 4130 1A) § 1 gna. cates CA_LINKAGE, ! Error control routine 

3 4131 74 1 SPC CA_LINKAGE, ' Allocate storage from the work area 
3 41 ; 7424 «1 SKIP. TENORED, ! Skip ignored text characters 

3; 41 7425 «(1 SKIP” COMMA ! Skip commas and ignored stuff 

: 41 ree | GET_RYW_TYPE, i Get “keyword type 

3; 4135 5 1 GET" STRT ! Fin ng and move around it 

3 41 428 1 SEARCH_TABLE; : boerel a table for a string 


rose O88 if sep-1964 99F35i8t Habart boOSheSsResbealy 6S2.1 Page 43) 


; 41 8 if, 3 1 ROUTINE PRESUMED LENGTH( X: REF VECTORC3], LEN: REF VECTORE1] ) = 
; 4140 t a CHSRCHAR(.XC_PTRI) OF 
: 414 74 C_QUOTE): ! String Length - 1/2 imbedded quotes 
; 2108 7434 BEGIN | Poin . 
: tide oer LENE 13 XC_LEN] - 2 
Py =, © é3 
: 4146 74 5 
> 4147 7438 DECR i FROM .LENCO] TO 1 DO 
> 4148 7439 if CHSRCHAR(.XC_PTR] + .1) EQL C_QUOTE THEN Q = .Q + 1; 
> 4149 7440 LENCO) = .LENLO] = 7 * =1; 
: t1at rte Cp RENT) LENCO) = 1 
: aide ries Hit’ "To %C'9') LENE Oy =1; 
: 415 7444 OTHERWISE] RETURN FAIL; : f 
> 4154 7445 S; 
: 4155 7446 
: 4156 7447 RETURN SUCCESS : 4 
: 4157 7448 1 END; ; ‘ 
: 4 
.TITLE PKSPAR 3; 4 
“IDENT \T03-038\ : 
.EXTRN ECSERR_CNTL, SASSPC_ALLOC 3; 4 
“EXTRN SISSKIP_IGNORED 3 4 
“EXTRN SCS$SKIP~COMMA, GKTSGET_KYW_TYPE 3; 4 
EXTRN GSS$GET_STRING, STSSEARTH_TABLE : 4 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 ; ‘ 
0004 00000 PRESUMED_LENGTH 7 4 
~ WO Save R2 3 3 4 
51 04 aC DO 00002 MOVL Xx, R1 : 3 4 
52 04 Al 00 90006 MOVL 4(R1), R2 ; 3; 4 
50 62 9A OOO0A MOVZBL (R2), R ; 3 4 
22 50 91 0000D CMPB RO, #34 : 3 4 
34 ig 001 BNEQ 3$ : : 4 
08 BC 61 : C3 0001 SUBL3 #2, (R1), @LEN ; 7 4 
50 D4 0001 CLRL. Q : 3 4 
51 08 Bc 01 C1 0019 ADDL3 #1, @LEN, I ; 3 4 
08 11 00 If BRB 2$ : 3 4 
22 6142 9 0 1$: CMPB C1)CR2I, #34 : 3 4 
1 4 BNEQ 2 3 3 4 
D6 000 6 INCL @Q : 3 4 
F5 1 £5 00028 28: SOBGTR I, 1$ ; 3 4 
50 50 FF er 7 00 ' ASHL = #1, Q, RO : 3 4 
08 ac 9 C SUBL2 RO, @LEN ; 3 4 
m= 3 BRB 5$ : 3 4 
25 50 9 3$ CMPB Ss oRO, «#37 ; 3 
oh 1 BEQL 4$ 3 3 4 
30 0 B CMPB =séRO, «#48 ; 3 
gp F 6 BLSSU6$ ; 
39 1 0004 CMPB—s«RO, «#57 : 
08 1A 004 BGTRU 6$ : 
08 BC 1 DO 00045 4$ VL #1, @LEN : 


reer 1$-se0-tgee 0:55 ; ANIL Liss? M4s0;742, | Page 138 
50 " 0049 5$: poy 1, RO : 7447 
50 bi ts 6S: cLRL RO : 7448 


; Routine Size: 80 bytes, Routine Base: SORSRO_CODE + 0000 


PD De DB BB Be BD BD BD 
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; 4159 rt88 1 GLOBAL ROUTINE PARSE _KEY( 

; 4160 74 1 KEY: REF VECTORE3), 

; 4161 74 1 1S_DATA, 

: t18¢ 74 1 CORN_SYM:REF CON_SYM_TABL], 

; 416 74 1 CON-CNT:REF VECTORCTJ, 

; 4164 7454 1 FLD_SYM:REF SYM_TABC), 

3 4165 7455 1 CDX_SYM:REF SYM_T ‘ 

; rob 74 § 1 CDX-CNT:REF VECTOR ): CA_LINKAGE = 

; 416 74 1 

; 4168 7458 1 !++ 

3 4169 7459 1°! Functional Description: 

; 4170 £750 7-3 

3 4171 461 1! Parse a key or data clause 

3 oi%¢ rites 1! 

3; 417 74635 1 ! Formal Parameters: 

3 4174 7464 1! , 

; 4175 7465 1! - Address of the length/address/line of the key clause. 

3; 4176 7466 1! IS_DATA = True iff a DATA clause is beine parsed 

3 4177 7467 1! CON_SYM = Address of constant symbol table. 

; 4178 7468 1! CON_CNT = Address containing number of entries already in table. 

3; 4179 7469 1! FLD_SYM = Address of field symbol table. ; F 
; 4180 7470 1! CDX_SYM = Address of field symbol table. 

; 213) oe) ' CDX_CNT = Address of number of entries in table. 4 
3 1188 7473 1°! Implicit Inputs: i 4 
> 4184 7474 1! : 4 
3 4185 7475 1°! Implicit Outputs: : 4 
3 4186 7476 1! : 4 
3 4187 7477 +1 °! Routine Value: : 4 
3 4188 7478 1! 3 4 
3 4189 7479 1! SUCCESS : 4 
: 4190 7480 1 | FAIL 2 4 
3 4191 7481 1! : 4 
; 4198 7482 1! Side Effects: s 4 
3 419 7483 1! : 4 
3 4194 7484 1 ! Notes: 3 4 
3 4195 7485 1! The syntax parsed by this routine is: 

3: 4196 7486 1! 

3: 4197 7487 1! s=else 

3 4198 7488 1! { 

3 4199 7489 1! 

3; 4200 7490 1! IF cond THEN 

3 4201 7491 1:! s=if 

3: 4 4 7492 1! 

3 4 74935 1! ield 

3 4204 7494 1! if s=else then exitloop 

3; 4205 7495 1! C 

3 4 6 7496 1! ELSE 

; 420 7497 1! s=else 

3; 4208 7498 1! 

3; 4209 7499 1! oe 

3; 4210 7500 1! 

t O5t3 520) >” BEGIN 

3 4 ig 75 5 

3 4214 7504 LOCAL 

3; 4215 7505 INDEX, 


! Remember the gtocting count 
SAVE COUNT = .CON_CNTCO]; 
LENGTH = 0; 
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1 LENGTH ! Max length conditional were cate 
1 SAVE COUNT, ' Save the number entries in constant table 
18 FIRST_IDX, ' KFT index of first entry for this key 
19 50 STATE, ' State yerteble 
0 21 DESCEND, ' Direction is descending ; iF 
1 1 LOC_KEY: VEC TORE SY ' Local length/address into key clause 
§ 1 TEMP_KEY:VECTORL3J, ! Temporary length/address into key clause 
1 KYW_TYPE; ' Keyword type 
4 1 LOCAL 
2 KFT: REF KFT_TABCI; 
4 CA_AREA_( CA ); 
3 output_("parse_key'); 
1 


! Default to ascending (not descending) 
DESCEND = FALSE; 


!' Set the index of the first KFT entry we will allocate 
FIRST_IDX = .CACCA_KFT_S1Z); 


Act (pretty much) Like we've just seen an ELSE 
STATE = KW_ELSE; 


! Get what may be a field name 
IF SKIP_IGNORED( KEYCO] ) EQL FAIL THEN RETURN FAIL; 
IF GET_STRING( KEYCOJ, LOC_KEYCO] ) EQL FAIL THEN RETURN FAIL; 


! While there are more key sub-clauses 
WHILE roe DO 
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WO OONOUESWN— O OONOUE WN" OVDONOUS 


POPOPIPIPIPINIPOPIPUNI PUNY PUNPININININPINININUAIPU NON Nonofnornonoforurfrofnopornyd 
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BE 
! Allocate a KFT es 
KFT = ALLOC_(KFT_UNIT); 
54 IF .CACCA_KFT_SIZ] GEQ KFT_MAX THEN ERR_(O, SORS_WKAREA); 
3 CACCA_KFT_SIZJ = .CACCA_KFT_SIZ) + 1; 
3 Initialize the key/data field table entry 
55 KFTCO, KFT_DATA] = .IS_DATA; 
55 KFTCO, KFT-BUILD] = TROE; 
55 KFT 0. KFT~CONTINUE) = TRUE; 
55 KFTCO, KFT“CONT.CDX) = TRUE; 
64 55 KFT 6. KFT-NDE_POS) = 0; ! needed? 
65 55 KFTLO, KFT_FDT_IDX] = 0; ' needed? 
66 55 KFTCO, KFT_TDT_ IDX] = 0; ! needed? 
367 55 KFTCO, KFT-CONSTANT) = FALSE; 
68 55 KFTCO, KFT_CONDX] = FALSE; 
69 35 KFTCO, KFTDESCEND] = FALSE; 
71 56 ! Try scanning "IF cond THEN" 
72 56 ! 


; - 41 
-Sep- 2:53:54 AX-11 Bliss-32 V4.0-7 Page 
reSPA iSoseoctgge 0:48:54 Yana] OLisg=52 yé0c7K dy 
.LOC_KEYC_PTRI; 
wiih $363 TEMPCREVECLENS. = SLOCCKEYESLENGZ 
; 4 fF 5 5 fu TYPE ='GeT_Kyw TYPE TEMP_KEYCO] ); 
: 4 i$ 7 89 IF [KYW_TYPE EQL KQ_IF 
: 7568 
; d 8 i 4 BEGIN 
5B ! onditional re 
+. ee iis USS She 
: 428 7573 4 es 
> 4284 7574 ! Get name of con ica ore rat URN 
: $388 rr ie Ser PepeGne SORE YEBD 2 OL EAL THEN RETURN FAIL 
: 6 4 peer iti bol table for name 
: 4288 7578 4 ! Search condition sym 
: $988 BI Ir SEARCH STABLE TOESREN EON oS on cntcOd ) EQL FAIL 
; THEN - 
: ¢ 33 7382 4 ' RETURN FAIL; 
> 429 7583 4 
: t the TDT index in the key f el 
; é 35 7385 kFTtO, KFT_TDT_IDX] = .CDX_ SYME.IN M_INDEX]; 
: $598 ! he keyword t 
2 3530 a SKIP. IGNORED ( KEvEO) ) £0 FAIL THEN RETURN FAIL; 
; 1599 rans d ir -SkIB ToMOKED( KEYED) KYO.) 
: 4300 7590 4 = 
: 1363 7332 t i eH Neo"ee_T THEN THEN RETURN FAIL; 
: 430 7593 4 ; ; const 
> 4304 7594 4 Get the field name stant i sat terviater ‘aa 
; ir eeine IGNORED( KEYCO) ) EQL ; 
; 1308 7336 IF GET_STRING( KEY f° LOC_KEYCO] ) EQL FAIL THEN TCE TURN FAIL; 
; 1368 7398 4 STATE = KW_IF; 
3; 4309 
: t319 7eot Search the field symbol table for field name 
3; 431 
: 4318 rei iF SEAR TOES FLD OSPMEO BASE _], .CACCA_FDT_S1Z] ) EQL SUCCESS 
; tae 7606 4 — BEGIN 
‘ ' 
: a3? 7608 ‘ | Put the index in the key field table 
: 1336 7610 4 KFTLO, KFT_FDT_IDX] = .FLD_SYMC. INDEX, SYM_INDEX); 
4 4332 rele § ELSE 
: 4 7613 & BEGIN 
: 6384 rere ¢ i It had better be a constant 
; ; et t l table index in the FDT index 
: 4337 7617 d BT bathe bee Tala canlan cele efit be tke 
: 1358 718 4 i Same as index “rs constant field table 
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; 4330 7620 4 KFTCO, KFT_FDT_IDX]_= .CON CNTCOI; : 
; : 1 tS 1 ? RICO. k KFT_CO ONST TANT = TRUE; : 
3; 4 76 § 4 i tt wi in constant table ; 
: 4334 7624 4 - CON_CNT rf0)- fon MAN ADR) = LOC KEVD.PIR : ‘ 
; 4335 7605 4 CON” CnTCO), oN NAM~LEN] = .LOCTKEYC-LENJ; : 
i 4336 £606 4 CON: ENTEOS. =". CON_CNTEON + 13 ; 
; 4338 7628 4 ! Determine the presumed Length of the constant ‘ 
; 4339 7629 4 ' Note phat the actual length depends on other key/data fields. ; 
; 4340 7630 4 i String constants: Length of the string : 
> 4341 7631 4 | Radix constants: 1 ; 
3; 4 2g 76 a ' Decimal constants: 1 : 
: 434 76 4 : ‘ 
; 4344 7634 5 BEGIN : 
> 4345 7635 5 LOCAL L; : 
; 4346 7636 5 IF PRESUMED LENGTH( LOC_KEYCO], L ) EQL FAIL THEN RETURN FAIL; ° 
3 4347 7637 5 LENGTH = MARU( .LENGTH,~.L ); : 
: 4348 7638 4 END; ‘ 
; 4349 7639 4 : 
; 4350 7640 END; : 
> 4351 7641 : 
; $326 1646 If we were working on the final ‘‘ELSE'' clause, then exit the loop : 
3 $320 rere IF .STATE EQL KW_ELSE THEN EXITLOOP; ‘ 
; 4356 7646 ! Get the next word (ELSE or IF or nothing) : 
; 4357 7647 : 
3; 4358 7648 3 SKIP_ IGNORED ( rey fo ‘ 
> 4359 7649 ; GET_STRING( KEYCOJ, LO¢_KEYCO] ); : 
; 4360 7650 ; 
; 4361 7651 H ! Try scanning ‘ELSE : 
; rr roe6 : 
> 436 765 TEMP_KEYC_PTR] = .LOC_KEYC_PTR); : 
3; 43646 7654 TEMP_KEY(_ = .LOC_KEYC_LEN : 
> 4365 7655 TEMP-KEYC-LINE) = .LOC_KEYE LINE) ; 
> 4366 7656 KYW_TYPE = GET KYW TYPE( TERP_KEYCO} ); : 
3 4367 765 IF <KYW_TYPE EGL KO_ELSE : 
: 4368 7658 N : 
: 4369 7659 = 4 BEGIN ‘ 
: 4370 7660 4 ' ; 
3 4371 7661 4 ! Get the next word : 
3 4 i; 7662 4 i : 
: 437 7663 4 STATE = KW ELSE : 
; 4374 7664 4 IF SKIP_1GRORED( KEY £0) ) EQL FAIL TH THE TURN AIL ; 
> 4375 7665 4 IF GET_STRING( KEYCOJ, LOC_KEYCO HEN RETURN FAIL; ; 
i 437% 76 END; : 
; 437 766 : 
3 2 8 £668 END; ; 
; $330 pony 1 Check for a comma, which must be followed by ‘‘ASCENDING'’ or ‘‘DESCENDING"’ : 
3: 4 ag 767 IF SKIP_COMMA( KEYCO] ) NEQ FAIL : 
: O38, rer THEN eGIN 
: 4385 7675 ue GET_STRING( LOC Ke tHCO ) EQL FAIL THEN RETURN FAIL; : 
; 4386 7676 SELECT TON — GET_ PE Poe KEYLO) ) OF : 
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; 4387 7677 ET 
> 43588 ree8 KW AASCEd: DESCEND = FALSE; 
: 4389 767 KW DESCJ:_ DESCEND = TRUE; 
; 4390 7680 OTRERWISE): RETURN FAIL; 
; 4391 7681 TES; 
: 439 76 § END; 
; 439 76 
3 ? Re fe : There had better not be anything else 
; 2 , by IF SKIP_IGNORED( KEYCO] ) NEQ FAIL THEN RETURN FAIL; 
; 4398 ress ! Set the last erbKa s continued condition bit off 
3 rhe 4 roan KFTLO, KFT_CONT_CDX) = FALSE; 
: 4401 7691 ' Set the result bongth for all entries made in constant table 
: 440 1638 ! On this call. This will be used for creating constant field table 
3 ret Peo? 222 This does not correctly account for mixing fields and constants. 
3; 4405 7695 iNCR IN FROM .SAVE COUNT TO .CON_CNTCOJ-1 DO 
; 4406 7696 BEGIN 
3; 4407 7697 CON_SYMC.IN, CON_LENGTH] = .LENGTH; 
; 4408 7698 CON-SYMC.IN, CON INDEX] = 0; 
; 4409 7699 END; 
; 4410 7700 
3 4411 7701 ! int oe tartare the Sa bit 
3 441 aa ADRI; 
3 441 770 KFT = KFT CP TRST IDX, Fae 
; meh pre DECR IN FROM -CATCA_ kre Aah? ~.FIRST_IDX=1 TO 0 DO 
3: 4416 7706 at , KFT pesceney = .DESCEND; 
3; 4417 7707 3 = KFTCT, E_J; 
: 4418 7708 3 
3 4419 7709 
; 4420 7710 RETURN SUCCESS 
; ri} 7711 
3; 4422 7712 «1 END; 
07FC 00000 «ENTRY Pe RP ARSE REY. Save R2,R3,R4,R5,R6,R7,RB,R9,-; 7449 
20 SUBL2 #32, SP 3 
§ 10 . 06 0008 MOVL @CON_CNT, SAVE_COUNT 3; 75 ¢ 
i CLAL LEN were 3? 
A dé B9 CLRL a53CE : 7526 
58 OOF D ce A 8 0 MOVZBL (EAD FIRST_IDX 3 e 9 
of F 00 1 MOVL STATE > 7533 
5 4 as g 1 MOVL rey: RS : 7536 
018 1 1 BRW 3 
8 0D 1C 1$: PUSHL 4&8 3 7544 
000000006 90 1 fe 1 CALLS #1, SASSPC_ALLOC 3 
4 MOVL m0, KF : 
FF OF OOFD 1 CMPB $(CA), #255 : 7545 
1F 3 BLSSU $ 3 
001¢815C 8F od 000 SHL #1868124 ; 
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7E 04 CLRL = = (SP) 
000000006 00 i 1 CALLS i ECSERR_ CNTL 
de BEQL 
02 4 33: BRW I$ 
oor CB 96 00047 3$: INCB (CA) 
56 0 AG 48 MOVAB 3(KFT), R6 
b6 01 06 8 Ag . 4F INSV 18 DATA, #6, #1, (R6) 
AE 15 8 ; BISB2 #27 (Rb) 
64 B4 0 CLRW (KFT) 
04 Ad B4 A CLRW 8s 4 (KFT) 
bh 2A BA 09 BICB2 #42, (R6 
08 AE 14 AE 7D 0006 MOVQ LOC_KEY, TEMP KEY 
10 AE iC AE bo 006 MOVL LOC aes, TERP. KEY+8 
08 AE 9F O006A PUSHAB TEMP _K 
000000006 0 1 FB 9060 CALLS #1, tk TScer KYW_TYPE 
5 0D 00 4 MOVL RO, KYW_TYPE 
2D 9 D1 77 CMPL KYW_ type. #45 
03 3 OO07A Beas 4$ 
00 1 gore BRW 7$ 
66 08 8 OOO7F 4$: B1SB2 8, (R6) 
55 DD 00082 PUSHL R 
000000006 00 gi FB 00084 CALLS #1, SISSKIP_IGNORED 
0 05 00088 TSTL RO 
B5 1 90080 BEQL = 2$ 
14 AE 9F OO08F PUSHAB LOC_KEY 
55 DD 00092 PUSHL RS ~ 
F CALLS #2, GS$GET_STRING 
000000006 00 g F 0094 CALL 2, $ 
AS 13 0009D BEQL 2$ 
1¢ BC DD 0009F PUSHL @CDX_CNT 
18 AC DD O00A2 PUSHL CDX_SYM 
08 AE OF 900A PUSHAB INDE 
20 AE 9F 0008 PUSHAB LOC_KEY 
A CALLS #4, ~STSSEARCH_TABLE 
000000006 00 4 F 00 CALLS a TSSE 
BE 13 000B4 BEQL 2$ 
50 6 06 ¢5 00086 MULL3 #6, INDEX, RO 
5 18 AC 0 OOBA ADDL2 cDK SYM, RO 
05 AG 05 Ag 0 908 MOVB (RO), 5¢(KFT) 
55 DD 000C PUSHL R5 
000000006 00 gi FB 000C CALLS #1, SISSKIP_IGNORED 
0D cc TSTL RO 
l 1 ¢ BEQL 3 
DD 000D PUSHL R 
000000006 00 1 FB D CALLS #1, GKTSGET_KYW_TYPE 
9 8 D D MOVL RO, KYW TYPE 
E D1 O00DC CMPL  KYW_TYPE, #46 
13 DF BEQL $$ 
01 £1 5$: BRW 1$ 
DD OOOE4 6S: PUSHL 5 
000000006 00 1 i E6 ALLS ae SISSKIP_IGNORED 
Hi i EF EQL ay 
14 AE F OOOF PUSHAB LOC_KEY 
3 DD OOOF4 SHL R 
000000006 00 2 FB 000F6 CALLS #2, GSSGET_STRING 
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Name Bytes Attributes 


SORSRO_CODE 666 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


BG CS he ee ee!) Mo See Syabols ocoee--- Pages Processing 
: File Total Loaded Percent Mapped Time 

; $255SDUA28: SORT32.SRC SORLIB.L32;1 409 103 35 34 00:00. 
: Biittints § SORT32.SRCISRTSPC.L32;1 120 24 0 12 0:00.1 
;  T$255$DUA28: CSORTS2.SRCISFKEYWRD.LS2;1 ' , ia : apis: 
: COMMAND QUALIFIERS 


PLISS/CHE CROCE IELD, INITIAL CPT IRI ZE) /MOTRACE/L 1891 1581 SRTSPCBLI1/0BJ208JS: SRTSPCALE MSRC$:SRTSPCBLI/UPDATE=(ENH$: SRTSPCBLI 


: 4429 L 7719 OQ MODULE PTSPAR (IDENT = 'T03-038" XREQUIRE('SRC$:DEFSO') ) = 

: 4430 org? 1 BEGIN 

3 4431 7726 «1 REQUIRE ‘SRC$:DKS'; 

3; 443 8024 1 EXTERNAL ROUTINE 

3; 443 8025 1 ERR_CNTL: CA_LINKAGE, ! Error control routine 

> 4434 8026 1 LLOC CA_LINKAGE, ! Allocate storage from the work area 
3 4435 8027 1 SKIP_IGNORED, ! Skip ignored text characters 

: 4436 8028 1 YW_TYPE, ! eet kepvere type 

3 4437 B0¢2 1 GET-STRING, ! Find string and move around it 

3; 4438 8030 1 SEARCH_TABLE; ! Search a table for a string 


Be Se Se Se Be Se ee Se 
a ee ee 
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103-038 -Sep-1 SORTS2.SRCJSRTSPCBLI.B352;1 

> 4440 031 1 GLOBAL ROUTINE PARSE_TEST( : 
3 4441 0 § 1 TST: REF VECTORC3) ‘ 
: 444 033 1 CON_SYM:REE CON_SYM_TABLI, : 
3 444 034 1 CON_CNT:REF YECTORET . ; 
3 rere) 035 : FLD SYM:REF SYM_TABCJ ): CA_LINKAGE = ; 
: rrr} " : 1 l+4 : 
> 444 0 8 1 | Functional Description: : 
3: 4448 0 7 | : 
3 4449 040 1! Parse a test clause : 
; 4450 041 1! : 
3 tee) peg 1 ! Formal Parameters: : 
3 44 § 045 1! ; 
3 445 8044 1! ST - Address of length/address/line of the test clause. ; 
+ 4454 8045 1! CON_SYM = Address of constant symbol table. : 
; 4455 8046 1! CON_CNT = Address containing number of entries already in table. . 
> 4456 8047 1! FLD_SYM = Address of field symbol tabie. : 
3; 4457 8048 1! : 
3; 4458 rh 1! Implicit Inputs: ; 
3 4459 050 1: : 
3; 4460 8051 1 ! Implicit Outputs: : 
3; 4461 BO36 1! : 
; rrr | 8055 1 ! Routine Value: : 
3; 446 8054 1! ; 
3 4664 8055 1! SUCCESS : 
; 4465 8056 1! FAIL : 
3: 4466 8057 1! : 
3 4467 8058 1 ! Side Effects: ; 
3: 4468 8059 1! : 
3: 4469 8060 1 ! Notes: : 
; 4470 8061 1! : 
: 4471 8062 1! A “‘global"’ area is initialized so that the recursive subroutines can 3 
3 447 8065 1! access the various parameters they need. : 
3 447 8064 1! The GET_xxx routines parse the condition and preducg TOT table entries, 3 
3 4474 8065 1! and a postfix representation of the condition (in S2). : 
3 4475 epee 7 Finally, CEVAL is called to process the postfix expression (from right : 
3: 4476 8067 1! to lefts, adjusting the TOT _GOTOs and (possibly) negating the tests. : 
; pris epee ' } See the comments in SRTSPC.REQ that describe how the TDT table is used. : 
3: 4479 6070 BEGIN : 
3; 4480 071 : 
3; 4481 BO 08 MACRO : 
> 4482 07 LB_DECL = EXTERNAL REGISTER LB: REF VECTOR %; : 
; ri 4 Bre : 
3 44 75 FORWARD ROUTINE : 
> 4485 B76 EXPR: CA_LINKAGE_LB, ! Parse an qxpression : 
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3 4490 M 8 3 : 
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4601 198 MACRO 
460¢ 819 MO(X) = CIF X GTR O THEN X ELSE 0) %; 
460 8194 LB_DECL; 
4604 8195 3 CAAREA.( CA ); 
4605 8196 3 S2I = S21 =} 
4606 8197 : SOP = .S 
4607 8198 IF .SOP EQL OP “AnD OR .SOP EQL OP_OR 
4608 8199 3 THEN 
4609 8200 4 BEGI 
4610 8201 4 CEVAL(.TLAB, .FLAB); 
4611 820¢ 4 IF - SOP EQL 0 
461 8203 4 THEN CEVALT. TLAB, .S11) 
461 8204 4 ELSE CEVAL(.S11, .FLAB); 
4614 8205 4 END 
4615 U 8206 4 %IF DECLARED (OP_ Not) XTHEN 
4616 U 8207 4 ELSE IF .SOP EQL~OP_NEG 
4617 U 8208 4 THEN 
4618 U 8209 4 THEN CEVAL(.FLAB, .TLAB) 
4619 810 4 “FI 
4620 8211 3 ELSE 
4621 Belg 4 BEGIN 
462¢ 8213 4 LOCAL 
46 B214 4 TOT: REF TDT_TABL); 
4624 8215 4 TDT = .CALCA_TDT~ADRI; 
4629 B216 4 
4626 8217 4 $11 = .$11 - 1; 
4627 8218 4 IF .TLAB EQL .$11+1 
4628 8219 4 THEN 
4629 8220 § BEGIN 
4630 8221 5 TOTE.S11. TDT_CMP] = NOT -TOIC. sSU1, TDT_CMP3; 
4631 82 : 5 TOTE.S11. TDT~GOTO] = MOC. FLAB-.S11); 
463 82 5 END 
463 2 ELSE IF .FLAB EQL .S11+1 
4634 8225 4 THEN 
4635 8226 5 TDTC.S11, TDT_GOTO] = MO(.TLAB-.S11) 
463 B227 & 
463 8228 4 RETURN FAIL; 
4638 <9 ND; 
4639 82 0 RETURN SUCCESS; 
640 31 END; 
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12286871382 99:35:82 SORT 2°sReisaisP CAL] 68231 age 25 
IF SEARCH TABLE( STRINGCO], INDEX2 
FCD_SYMCO,BASE_J, .CALCA_F 


THEN 7 
BEGIN 


! We have a field (not a constant) 


61_SIZJ ) EQL SUCCESS 


Indicate it is not a constant, and store the field two index 


DIED, TDT_CONSTANT] = FALSE; 
> TDTZFLD_TWOJ = .FLD_SYMC.INDEX2, SYM_INDEX); 


TOT 
END 
ELSE 
BEGIN 
| We have a constant. Make an entry in the constant symbol table 
iF .CON_CNTCO] GEQ MAX_CONST THEN RETURN FAIL; ! too many? 


Put index to constant table in TDT, and mark as a constant 


Tp1E0, TDT_FLD_TWO) = .CON_CNTCO]; 
TOTCO, TDT-CONSTANT) = TRUE; 


Initialize the constant table entry 


! Store the Length and address of the constant 

Store the field one index. This indicates a related field, 
and lets us know how to convert this thing Later. 

Zero the length field. 


CON_SYMC.CON_CNT(O), CON NAM LEN] = ,STRINGC_LEN); 
CON-SYMC.CON-CNTCOJ, CON-NAM-ADR] = . STRING 

CON7SY N-C O}, CON-INDEX] = .FLD_SYMC.INDEX1, SYM_INDEXI; 
CON~SYMC. CON~CNTLOJ, CON"LENGT ="0; 

CON-CNTCO) =~.CON_CNTLOJ~+ 1; 
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END; 
RETURN SUCCESS; 
END; 


O7EC 00000 GET_SIMPLE: 
- WORD 


Save R2,R3.R5,R6,R7,R8,R9,R10 : 8233 
SA 990000006 00 9E 9002 MOVAB GS$GET STRING, R10 ; 
59 000000006 00 9 0 9 HOVA SISSKIP_ IGNORED, R9 ; 
64 D Q 18 MOVL (LBS, TST : 8248 
08 AA OD 1 MOVL (1B) CON_SYM : 8 49 
C Ad D 1A MOVL eles, COR_CNT ; 8250 
3 10 Aa D 3 MOVL 16(LB), FLDTSYM : 8 2} 
4 DO PUSHL #4 : 
000000006 99 1 FB 4 CALLS #1, SASSPC_ALLOC : 
0D B MOVIL. RO. TOT ; 
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EN RETURN FAIL; 
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OCK: VECTOR[K_S2+S2_ 
GLOBAL REGISTER LB = LB_REG: REF VECTOR; 


$1S 
LBL 
CA_AREA_( CA ); 


Routine Base: 
output_("parse_test'); 
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105 bytes, Routine Base: 


3; Routine Size: 


H 10 


PTSPA 1b-Sep -1984 75 4 X-11 Bliss-32 V P 0 
103-038 or3ee= 1382 99:75:8e «— PakatoPbhessRe etal Tks o. 4 age 195 
: 4783 74 ! 

3; 4784 6375 END 

> 4785 76 0 ELUDOM 

: PSECT SUMMARY 

; Name Bytes Attributes 

: SORSRO_CODE 820 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


Bet Aerie se al ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped ime 

: _$255$DUA 8: [SORTS2. SRCISORLIB.L32; 1 409 103 35 34 00:00.1 
: ~$255$DUA ORT32.SRCISRTSPC.L32;1 120 24 0 12 0:00.1 
; Bitte SORT SRCISFKEYURD. .$2;1 

; 1 1 100 9 00:00.1 
: COMMAND QUALIFIERS 


PLISS/CHECKSCFTELD, UI TIAL OPT IALZE) /NOTRACE/L ISeL 158: SRTSPCOL 1 /0BJ08J8: SRTSPCOL MSRC$: SRTSPCBLI/UPDATE=(ENHS$: SRTSPCBLI 


3; 4786 L 8377 O MODULE PISPAR (IDENT = ‘T03-038' XREQUIRE('SRC$:DEFSO") ) = 

3: 4787 8383 1 BEGIN 

3; 4788 384 1 REQUIRE St: DKS’; 

3; 4789 ont 1 EXTERNAL R puri rT 

: 4790 rt} 1 ERR_C CA_LINKAGE, ! Error control routine 

3: 4791 684 1 EOLCSMODIFY UP ! Make a modification 

3; 479 685 1 KIP_C 2 ! Skip commas and ignored stuff 

: 479 8686 1 GET_CHAR_CLAUSE; ! Get character clauses of various kinds 


10 
03-088 IeSepct94s Q0:S3:84 YASUE BLtsgcde Us0o 742 Page 8} 
GLOBAL ROUTINE PARSE 


ARSE _IGN( 
REF VEC TORES). 
CD: REF VECTOR ): CALLINKAGE = 


144 
Functional Description: 


Parse an ignore clause 
Formal Parameters: 


IGN - Address of length/address/lLine of the ignore clause. 
CD - Length/address of the collating description work area 


Implicit Inputs: 

Implicit Outputs: 

Routine Value: 
asses 


Side Effects: 


BEGIN 


LOCAL 
CH4: VECTOR(C4 BYTE], ! Characters returned from get_char_clause 


INDEX 
CLAUSE_TYPE; 
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CA_AREA_( CA ); 
output_("parse_ign'); 
KYW_LINE = 0; 

CHAR1(CO : 

CHAR1L1 ; 
CHAR2LO ; 
CHAR2L1 : 


! While there are more ignore sub-clauses 
aia 4s dO 
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PREPARA 


! Get character clause 
CLAUSE_TYPE = GET_CHAR_CLAUSE( IGNCO], CH4C0) ); 
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PISPA IbeSe -1984 155:54 AX-11 Bliss<32 V4.0-74 P 
ase a 1 =3007 1383 90: 13;82 YeORT 2-SRCISRTSPCOLI .B 2:1 age 196 
: 48 744 SET 
: ¢ if tte CGC_SINGLE, GC_S_T0_$] ' Singl 
+ 4885 oS i “BEGIN ww 2 
; 4896 748 4 CHAR1CO) = 1; 
; 4837 ff 4 INCRY. 1 FROM .CH4CO] TO .CH4C2] DO 
> 4859 751 CHARIC2] = .1; 
; 4860 7 : S = COLLSMODIFY(CDCO2, CHARI, CHAR2, 0); 
: 486) 7 IF ERROR_( .S ) THEN (ERR_(.KYW_LINE, .8); RETURN FAIL); 
3 4 ¢ 754 4 END; 
Be o 
> 4865 75 (GC_DOUBLE): 
> 486 138 rh “BEGIN 
> 486 759 4 CHAR1(0) = 2; 
: 4868 760 4 CHARIC2) = -CH6E03; 
> 4869 8761 4 CHARIC3) = .CH4C1): 
: 4870 166 4 COLLSMODIFY(COCO], CHAR1, CHAR2, 0); 
> 4871 8763 4 If ERROR_( .S ) THEN (ERR_(.KYW_LINE, .S); RETURN FAIL); 
+ : 
> 4B74 766 COTHERWISE): iti 
! 4875 B77 RETURN FAIL; Error condition 
$8 $790 ve 
: 4879 grr IF SKIP_COMMA( IGNCO] ) EQL FAIL THEN EXITLOOP; 
: tBee 5798 ae 
; 4882 8774 RETURN SUCCESS 
> 6884 8776 1 END; 
.TITLE PISPAR 
“IDENT \T03-038\ 
EXTRN ECSERR_CNTL, COLLSMODIFY 
EXTRN SCSSKIP_COMMA, GCCSGET_CHAR_CLAUSE 


«PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 


OOFC 68 -ENTRY PISPARSE_IGN, Save R2,R3,R4,R5,R6,R7 ; 8687 
57 000000006 00 9€ 000 MOV COLLSMODIFY, R 3 
Se g ¢ 00 SUBL2 #12, SP 

D4 0000C CLRL KYW LINE : 8729 

08 AE B4 OF CLRW = CHAR : 87 | 

4 AE B4 CLRW  CHAR2 : 87 

5E DD 00014 1$: PUSHL SP : 8741 
04 AC OD 18 PUSHL IGN ; 
000000006 90 F 1 CALLS #2, GCCSGET_CHAR_CLAUSE ; 
6 Dd MOVL R YP 3 

01 p CPL AuSE_TYPE, # ; 8746 
03 6 pi o CMPL SLAUSE_TYPE, #3 ; 
—E 12 it BNEQ ; 


Yebatse SReisAysPcorT 68251 


ifcSeo-19Be 00:58:54 


oom —w mo mm Gorw a) = + Oo 
www ow, we rw moo Oo ~ ~ ™ 
uw AP en ~~ eR ~ ~ ~~ ™~ 
eococo 9000 eco oem wan @o [-*) o wa 
Pee Fe Fe Fe Fe FS FS FS FS FS FS FS FS FS FS FS TSS FS SSS SS HS SSS HS SSS SSSR HTS FS SR ER SCR CR FR He 
<= 
= 
> NN > = s 
ae a ve te 
_ -— 2 Ca) 
a . N a vu £ 
o w + oO i a 
~N = a - = a os 
-— + oom ~- -—<& A a ot 
cc _- = —- ae — wu w” 
4 <= a ‘' <=x a Za of 
x= <« o w rw oO “oO (=) o 
on IANRK- UMA MM Yn VY ANRK— COMPA WW (7) a 
+ - vtteae oo « => a 4: 4 ~ ' 
~—s oe 4 ss < wrote bili Bae 2s . 
-—-=zrrAn wtrawTro + PAA IMNI~TITrAavTro + >-+wAV-CKH*H— OC 
MVS § OCVUVSTZ Yt MP VORB | COVURBSTUU MEO-“BIeO-B 
sd4au4 
oo 22 Lu > SS ay IW 
@On~nm OYITITssvii9d jogs sITtrTiwsvrIog Bsns 8 ~ 
Sr r>Or>lwwH YS Ov8wOewr> > H 3S OHH IO u--42 3B Soe ee 
OooecO4D3D7D4OIZE IEE ZOO ID DDB AOO ID ee DOW es Ow wa 
EET OZOO040 VE O-VOOVOFTZYOA00028 O00000 4+ Oat ecve 
Se oan eh & a ead - A 
~N ~m wT wm eo) ~ ao o 


QRWN SF TF TTT TUNUNUIUNULN OOO OOR-P-P-P-P-F. DDDOOOCOOOO & 
OOCOOCOGOCOOCSCOGOSCOOCOOCOOCOCCOOOOOOOSOOOCOOOCOOOOOOoOO 
SOOoQoooooooooooooooooooooooooosoooooooooooo 
OoOOCCOCOCOCOOCOOCOOOCOCOSOCOCOOOOCOOSOOOOOCOOOOOOOOO 
Od d-- Osu ODOC OR Oe  - VNOOT us ODODOOO- OOwm-OoOvrs ys 
DOO P OCC Ou OWOOK K OF- COMO au Awocdue- Ou Oe-MACaBO 
HWW EWI WWI OST O TON — WOW WWW OT OT TNOINO- OM E— OC 
OtOenr ur fc TOMUMNAM WCU OF-. << LOUUNNO— LOMOL-O WwW 
“ 
va 
N wmode wooo w 
Oo oro o-O o 

urn ot wre «mM Nw UW a) o oS o 
<u << onmNm Ww o ae WMO So So wm 

oOo o 
co 4 oct o o 
Oo Oo oo So So 

So o 

So o 

So So 

So So 

So So 

Oo o 


SORSRO_CODE + 0000 
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161 bytes, 
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PSECT SUMMARY 


PISPAR 1b-50 Sep-1984 :5 4 AX-11 Bliss-32 V4.0-74 Pa 4 

TOs048 Beer 1o8 §Sitorse «| ebro eSaeScassbearr eg2.1 9¢ 48) 
Name Bytes Attributes 

SORSRO_CODE 161 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


tee So ee ee REN ee. Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped me 

: _$255$DUA28:(SORT32.SRCISORLIB.L32;1 409 102 24 34 0:00.1 
3 ~B95S80UAS6:E sont g:Sneasersee:t39i1 120 6 5 12 $380.1 
: 7$255$DUA28:CSORT32.SRCISFKEYWRD.L $2; 1 

; 1 1 100 g 00:00.1 
3 COMMAND QUALIFIERS 


PLISS/CHECK OCF TELD ENE TIAL OPT INI ZED /MOTRACE/L ISL 188: SATSPCOL J /ORJe08)S: SRTSPCOLI MSRC$: SRTSPCBLI/UPDATE=(ENH$: SRTSPCBLI 


: 4891 L 8783 0 MODULE PMSPAR (IDENT = 'T03-038' ZREQUIRE('SRC$:DEFSO') ) = 

3; 489 8789 1 BEGIN 

3; 489 8790 1 REQUIRE ‘SRC$:DKS'; 

3: 4894 9088 1 EXTERNAL aouit 

3; 4895 9089 1 ERR_CNTL: CA_LINKAGE, ! Error control routine 

3; 4896 9090 1 COLCSMODIFY, i Make a modification 

; 4897 9091 1 SKIP_COMMA, i Skip commas and ignored stuff 

3; 4898 9092 1 GET_CHAR _CLAUSE; i Get character clauses of various kinds 


m 10 
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; 4900 3093 1 GLOBAL ROUTINE PARSE _MOD( 

; 4901 94 1 MODI: REF VEC TORE 3]. 

; 490 9095 1 REF VECTOR ): CALLINKAGE = 

: i304 9097 | i+ 

: te2 $098 ! | Functional Description: 

: 4907 3190 | Parse a modification clause 

: rt 4 2108 : | Formal Parameters: 

> 4911 age 1/ MODI - Address of length/address/line of the modification clause. 
3 13) 3193 : CD - Length/address of the collating description work area 
; tole $107 : | Implicit Inputs: 

; 491 gi09 { Implicit Outputs: 

: 1818 a4) } | Routine Value: 

: 4920 3113 1! SUCCESS 

Bee aay 

; 1958 9116 1! Side Effects: 

3: 4924 9117 1! 

: 4925 9118 1 !-- 

; 4926 9119 BEGIN 

+ ee 

> 4929 91 ¢ CH4: VECTOR(4 BYTE], ! Characters returned from get_char_clause 
3; 4930 912 CLAUSE_TYPE; 

: O933 3155 KYW_LINE 

> 493 9126 CHARI: VECTORE4 BYTE). 

> 4934 91 CHAR2: ECTOR(4 BYTE), 

+ 3 

; 4937 9130 CA_AREA_( CA ); 

: $373 alas output_('parse_mod'); 

; 4941 9134 KYW_LINE = 0; 

> 494 91 $ CHARI ET] = 0; 

3 rhe 4} CHAR2C1) = 0; 

3 4946 3139 ! While there are more modification sub-clauses 

3 4947 9140 WHILE TRUE DO 

; yb 4 aie) BEGIN 

: 4950 3108 ' Find type of modification 

; $32! Bite CLAUSE_TYPE = GET_CHAR_CLAUSE( MODICO], CH4(0) ); 

: 4358 gig SELECTONE .CLAUSE_TYPE OF 

; 4955 914 FFAn INGLE, GC_DOUBLE, GC_S_TO_S]: RETURN FAIL; 
: 198 3149 OTHERWI SES. 65 


N 10 
PMSPA 16-Sep-1984 00:53:54 AX-11 Bliss<-32 V4.0-74 Page 
108-058 eae ts ra La PUD Po oh ee ee age 196 
2 eT See 
: 495 91 CHARICO] = GC_L1_(.CLAUSE_TYPE); 
> 4960 91 CHARIC2) = .CAG 0; ¥ 
> 4961 9154 CHARIC3) = .CH4C1): 
: 496¢ 9155 CHAR = 6C_L2 (.CLAUSE_TYPE); 
> 496 9136 CHAR = .CAG 33: 
: 4964 31 f CHAR = 'CH4C3): 
> 4966 3128 S = COLLSMODIFY(CDLOJ, CHAR1, CHAR2, GC_OP_(.CLAUSE_TYPE)); 
: 4967 3160 IF_ERROR_( .S ) THEN (ERR_(.KYW_LINE, .S);"RETURN FAIL); 
: 4969 g16¢ IF SKIP_COMMA( MODICO] ) EQL FAIL THEN EXITLOOP; 
eee ioe 
: 497 9165 RETURN SUCCESS; 
: 497 9166 1 END; 
.TITLE PMSPAR 
“IDENT \T03-038\ 
.EXTRN ECSERR_CNTL, COLLSMODIFY 
EXTRN SCS$SKIP_COMMA, GCC$GET_CHAR_CLAUSE 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 
001¢ 00000 .ENTRY PMSPARSE_MOD, Save R2,R3,R4 : 9093 
SE oc C2 90002 §UBL2 #12, SP ; 
54 D4 9000 CLRL «KYW LINE : 9134 
09 AE 94 00007 CLRB = CHAR1+1 > 9136 
05 AE 94 OOOOA CLRB = CHAR2+1 : 9137 
SE DD 0000D 1$: PUSHL SP : 9144 
04 AC OD 0000 PUSHL MODI : 
000000006 00 08 FB 0012 CALLS #2, GCC$GET_CHAR_CLAUSE : 
52 50 D0 0001 MOVL RO. CLAUSE_TYPE : 
05 19 g001¢ BLSS _2$ : 9148 
03 é D1 OOO1E CMPL § CLAUSE_TYPE, #3 : 
55 15 00021 BLE © 4$ F 
50 52 02 04 ai 900 3 2s: EXTZ2V #4, #2, CLAUSE_TYPE, RO : 9152 
08 AE 0 90 00028 MOVB RO, CHARI : 
OA AE 6— BO 0002C MOVW CH4, CHAR1+2 : 9153 
50 52 02 00 FF 00 6 EXTZV #0, #2, CLAUSE_TYPE, RO > 9155 
04 AE 50 : 00 MOVB RO. CHAR : 
06 =A 02 AE BO 00039 MOVW CH4+2, CHAR2+2 : 9156 
7E 52 0 02 FE 00 E TV #2, #2, CLAUSE_TYPE, -(SP) : 9159 
08 AE 9F 0004 PUSHAB CHAR ; 
10 AE 9F 0046 PUSHAB CHAR : 
08 AC DD 0004 PUSHL CD : 
000000006 90 04 F 0046 CALLS #4, COLLSMODIFY : 
5 50 DO 0005 MOVL RO. : 
0d E 0046 v' Eo ey : 9160 
DD 000 PUSHL § : 
4 oD 0048 PUSHL  KYW_LINE : 
000000006 00 03 FB 00 D CALLS We. ECSERR_CNTL : 
12 1 064 BRB 4 : 
04 AC DD 00066 38: PUSHL MODI : 9162 
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000000006 00 1 =F § CALLS #1, SCSSKIP_COMMA 3 
8 D TSTL Re : 
1 7 BNEQ 1 3 
50 1 B? fs nove #1, RO s ; 9165 
50 D4 £8 4$: CLRL = RO + 9166 
RET : 
; Routine Size: 123 bytes, Routine Base: SORSRO_CODE + 0000 
; 4974 9167 1 
3; 4975 9168 1 
; 4976 9169 1 ! ELUDOM 
3; 4977 9170 1} 
3; 4978 9171 1 END 
3; 4979 9172 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
; SOR$RO_CODE 123. NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
oe a eee oe See Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
> _$255$DUA28:(SORT32.SRCISORLIB.L32;1 409 102 24 34 00:00.1 
3; ~$255$DUA28: :ESORT g. See Se rebe ta5ey 120 6 5 12 00:00.1 
> 7$255$DUA28:CSORT32.SRCISFKEYWRD.L $2; 1 
3 1 1 100 g 00:00.1 


COMMAND QUALIFIERS 
F-ESS/CHECE SCP LELD INET IAL OPT IALZE) /MOTRACE/L P64. 158s SBTSPCRL 3/08. J008I8 SAT SPRL MSRC$:SRTSPCBLI/UPDATE=(ENHS: SRTSPCBLI 


4980 L 9173 9 MODULE CCSCON (IDENT = ‘T03-038" ZREQUIRE\'SRCS:DEFSO") ) = 
rhs 9179 BEGIN 

49 § 3498 1 REQUIRE ‘SRC$:DKS'; 

498 Oe 1 EXTERNAL ROUTINE 


ae 


_— 
*. 
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ocate storage from the work area 
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CNTL: 
ALLOC: 
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T_PTR: REF VECTORC,BYTE), ! Output constant area 
IN_TON_PTR, ! Input constant pointer 
IN_CON_LEN, ! Input constant length 
OUT_COR_IDX, ! Total output constant Length 
PRE_LENGTH; ! Presumed length 


oor 


! Get the impure data area 
CA_AREA_( CA ); 


output_('conv_constants'); 


COOCoooocecooo 


SOGEAE 


' Set the address of constant storage area behind the CFT 
Set the address of constant area in common area 


CACCA_CONST_AREA] = ALLOC_(0); 


: 4987 9481 1 GLOBAL ROUTINE CONV_CONSTANTS( 

; 4988 94 : 1 FDT : REF FDI TABLE. 

; 4989 94 1 CFT : REF CFT_TAB 

: 4990 9484 1 CON_SYM : REF CONTSYM_TABL), 

; 4991 vt 1 CON_CNT 

: 499 9486 1 ): CALLINKAGE = 

; 499 9487 1 !++ 

> 4994 9488 1 ! Functional Description: 

3; 4995 9489 1! 

; 4996 9490 1! Convert the constant symbol table into the constant field table 
; 4997 9491 1! 

; 4998 Be36 1 ! Formal Parameters: 

3; 4999 9495 1! 

; 5000 9494 1! FDT - Address of the field definition table 

; 5001 9495 1! CFT - Address of constant field table 

; 500 9496 1! CON_SYM = Address of constant symbol table 

; 500 9497 1! CON_CNT = Number of entries in constant symbol table 

; 5004 9498 1! 

; 5005 99 1! Implicit Inputs: 

; 5006 00 1! 

; 5007 01 1! Implicit Outputs: 

; 5008 02 1! 

; 5009 03 1 ! Routine Value: 

3; 5010 04 1! 

; 5011 05 1! SUCCESS 

H 2018 06 1! FAIL 

; 501 or 3% 

; 5014 08 1! Side Effects: 

; 5015 09 1! 

; 5016 10 1 ! Note: 

3; 5017 ies Mandatory length as used below is the minimum Sw reqyired 
; 5018 121! by a conditional key specification. If the CON_LENGTH field is 
3; 5019 in 32 zero then the constant was not defined by a conditional key 

; 5020 14 1! specification, but rather by a condition specification. In that 
; 5021 3a case, the Length of the constant field should be determined by 
3 2056 : ' the length of the field used in the condition specification. 
3; 5024 18 1 !-- 

; 5025 1 BEGIN 

; 5026 § 

3; 5027 LOCAL 

: 8 

3 ; 9 

; 1 
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CCSCON 
TOS<038 ~Sep- SORT32.SRCISRTSPCBLI.B32;1 
; 5044 


3 5 ; ' Set up the constant table. ; 
; 45 ; i Run through the constant symbol table and convert : 
; Qc? 4] iNCR_IN FROM 0 TO .CON_CNT=1 DO 
; 3 | t§ BEGIN : 
; 504 4 D ; 
: 5050 9544 WF _ NAMES = CACCA_WF_NAMES]: VECTORC BYTE]; : 
; 5051 9545 MACRO : 
: 2028 o2e$ ITS_A_WORK_FILE = (.IN = .WF_NAMESC1] LSSU .WF_NAMESCOJ) %; : 
: 208% ae ! Get the start address and Length of the constant ; 
; 282? S202 Get the presumed length from the constant symbol table : 
; 8089 9551 IN_CON_PTR = .CON_SYM[.IN, CON_NAM ADR? ; 
; 5058 2226 IN CON LEN = .CON_SYML.IN, CON_NAM_LENJ; ; 
: 2059 9933 PRE_LENGTH = .CONTSYMC.IN, CONZLENGTHJ; : 
3 2061 9535 t If there, get length (in bytes) out of the FDT table ; 
: 3068 9557 IF .CON.SYMC.IN, CON_INDEX] NEQ 0 ; 
: 506s 3885 i _ 
; 5066 9560 4 PRE_LENGTH = .FDTC.CON_SYMC.IN, CON_INDEX], FDT_FLD_SIZ]; 3 
; 2008 L 328) 2 ZIF XBLISS(BLISS32) : 
; 3069 3568 4 IF_.FDTC.CON_SYMC.IN, CON_INDEX], FDT_TYPE] EQL DT_P ; 
; 274 9565 4 PRE_LENGTH = .PRE_LENGTH / 2 + 1; ; 
3 anre 2208 4 XFI 3 
a oa 2 
; ane 3288 Allocate space for the constant : 
; 3077 9571 OUT_PTR = ALLOC_(.PRE_LENGTH); 3 
: ta $578 Zero the output area : 
; 3081 9575 iF CHSRCHAR(.IN_CON_PTR) EQL C_QUOTE ; 
; S088 $377 CHSFILL(.CACCA_PAD], .PRE_LENGTH, OUT_PTRCOJ) : 
; 5085 $379 CHSFILL(O, .PRE_LENGTH, OUT_PTRCO}); ; 
; 3087 9581 ! Set the address in CFT ; 
3 On8 £3 $ ; Set the number of bytes in output string : 
: 2090 9584 cFIE.IN, CFT_CON_ADR] = OUT PTRCO) - CFTCO, BASE_); ; 
: 509 $586 CFTC.IN, CFT_CON_LEN) = .PRE_LENGTH; : 
; 098 3 } Check for a work file name that does not begin with a quote. ; 
; 2098 9889 if _TSAWORK FILE AND CHSRCHAR(.INCON.PTR) NEQ C_QUOTE 3 
; $99 $39 BEGIN ; 
3 443 3 38 & CHSMOVE(.PRE_LENGTH, .IN_CON_PTR, OUT_PTR(O)); : 
: 5100 9892 ; ELSE ! Should indent more, but ... : 
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What kind of constant is it? 
SELECTONE CHSRCHAR_A(IN_CON_PTR) OF 
CC_QUOTE): ! It's a quoted string 
BEGIN 
i Move string to storage area, 
Converting doubled quotes to single 
' Don't include the shorting quote 
IN_CON_LEN = .IN_CON_LEN = 1; 
we {iN_CONLLEN = .IN_CON_LEN = 1) GTR O DO 
IF (PRE_LENGTH = .PRE_LENGTH = 1) LSS 0 rHEN EXITLOOP; 


CHSWCHAR( CHSRCHAR_ACIN CON_PTR), OUT_PT ); 
If CHSRCHAR_ACOUT PTR) Ea. C_auofe 


IN CON_LEN = .IN_CON_LEN 


BEGIN 
IF CHSRCHAR_ACIN_CON_PTR) = C_QUOTE THEN RETURN FAIL; 


END; 
' For workfiles, we may have made the string shorter 
' (because of doubled quotes). Set CFT_CON_LEN appropriately, 
' since RMS may not Like the pad characters at the end. 
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fof, SAMO FILE 
CFTC.IN,CFT_CON_LEN] = 
$$ ; OUT_PTREO) = (.CFTC.IN,CFT_CON_ADR) + CFTCO,BASE_)); 
$ END; 
re CC_PERCENTI: ! Decimal, octal, or hexadecimal constant 
4g Mm 96 MACRO OCT_HEX(C_OH) = 
4 M 96 BEGIN 
44 M 96 8 ! From low order to nigh order, convert each byte 
45 M 96 DECR I FROM .IN_CON_LEN-1 TO 0 DO 
r¢ ® 9640 BEGIN 
4 M 9641 LOCAL V: BYTE; ! The input character 
$8 4 vet LOCAL 8B; 
4 M 964 LITERAL K = ZIF C_OH EQL C_HEX &THEN 4 ZELSE 3 2FI; 
3 : See sELEC TON (V = CHSRCHAR_ACIN_CON_PTR)) OF 
6 » 2208 FCO! TO 2C°9"}]: Ve v= 8C'0'; 
H L HEX HEN 
5 “4 F C_OW EQL C_HEX &THE 
54 fad 968 c'A® TO Ate V = .V = ZC°AS + 10; 
55 M 964 ZC'a’ TO 2C'f'): Ve v= £C'a’ + 10; 
2$ i ocee Fl 
5 M 96 OTHERWISE): RETURN FAIL; 
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; 5215 970 END; 3 
3 1 971 : 
3 1 971 RETURN SUCCESS F 
3 18 971 3 
: 5219 971 END; ‘ 
TITLE ccs ¢ON ; 
-IDENT \T03-038\ : 
.EXTRN ECSERR_CNTL, SASSPC_ALLOC : 
-EXTRN SORSSCONVERT ; 
.PSECT SORSRO_CODE,NOWRT, SHR, PIC,2 : 
07FC 00000 ENTRY CCSCONY CONSTANTS, Save R2,R3,R4,R5,R6,R7,~ ; ; 
5E 24 C3 90002 SUBL2 R36 P : ; 
0118 3 0128 (CB OOD 9000 OVL  296¢CA), 280(CA) : ; 
5 01 cE 000¢ MNEGL #1, IN : ; 
0217 31 S000F RW 3 : ; 
5A 0134 cB 9E O01¢ 1$: MOVAB 308(CA), R10 : ; 
50 0c Bc47 7E 0001 MOVAQ @CON_SYMCINJ, RO : ; 
oc AE 60 00 9001¢ OVL (RO); IN CON : ; 
5 04 AO 9A 000 MOVZBL 4(ROS, IR CO : ; 
56 06 AO 9A 00024 MOVZBL gsr ), PRE_LENGTH : 3 
04 AE 05 AO 9A 00 8 MOVZBL 5(RO); 4(SP) : ; 
6E D4 00020 CLAL (SP) : ; 
04 AE d3 O02F TSTL  4(SP) : ; 
1¢ 13 00032 BEQL 2$ : : 
bE 06 00 4 INCL. (SP) : F 
50 04 AE 06 C5 00036 MULL3 #6, 4(SP), RO ; : 
50 04 AC £0 0038 ADDL2 FDOT, RO : : 
56 04 Ad 3C 0003F MOVZWL 4(RO), PRE_LENGTH ; : 
15 60 91 00043 CMPB (RO), #21 ; 
08 lg 0046 BNEQ 2$ : 
51 56 02 f 904 DIVL3 #2, PRE_LENGTH, R1 ; 
56 01 Al 9E 0004 MOV 1(R1), PRE_LENGTH : 
56 DD 00050 28 PUSHL PRE_LENG ; 
000000006 00 gi FB a08 CALLS ay SASSPC ALLOC : 
5 0c BE 9 0 20 CMPB ore #34 ; 
50 0101 cs 3A p $3 mOVZBL 37( CA) RO ; 
56 50 6E vi c 68 vcS. #0, (SPS, RO, PRE_LENGTH, @OUT_PTR : 
0) 11 8 oF BRB 4$ ; 
56 00 6E - 0 2c on 3$: MOVCS #0, (SP), #0, PRE_LENGTH, @OUT_PTR 
59 57 BE c 8 4$: MULL3 #6, IN, R9 : 
9 08 Ac ¢ 7 ADDL f, ; 
02 a9 08 A A SUBL3 CFT. OUT_PTR (Rd) ; 
5 MOVE =~ PRE LENGTH, (r9) ; 
: 01 «AA A A HOVZBL 1(RTO), R : 
50 50 ¢ SUBL3. RO, IN. R ; 
10 AE D4 CLRL —_: 16 0 SP) ; 
50 6A 08 00 ED 0009 CMP7v #0, #8, (R10), RO ; 
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K 11 
CCSCON 16-Sep-1 7:53:54 AX-11 Bliss-32 V P 7 
TMT 1ergee13Re 99:75:82 Hebar bo Shes sae seal 682.1 age 145 
14 AE F 15 288: PUSHAB F ; 
ns: a a ™ 
000000006 99 FB 1p CALLS a, $9 RSSCONVERT : 
— 1 7 BNEG § : 
Oc 57 10 os i 9 29%: peaess 60N CNT, IN, 30$ 3 9541 
FDDF 44 " 305: BRW 1$ : 
50 01 Be 6 1$: poye #1, RO 3 9711 
50 04 32$: CLRL RO : 97 
ba § 9 RET 3 wis 
; Routine Size: 570 bytes, Routine Base: SORSRO_CODE + 0000 
3; 3 $0 9714 1 
; 5221 9715 1 
: 5 $8 9716 1 END 
:; 522 9717 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: SORSRO_CODE 570 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
er ke) ee ee a Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSORT32.SRCISORLIB.L32;1 409 103 25 34 90: :00.1 
; _$255$DUA28: (SORT area tar c aL Sea) 120 23 19 12 0:00.1 
; -§ 55$DUA28: CSORTS2. SRCISFKEYWRD.L 32; 1 
3 1 1 100 9 00:00.1 
; COMMAND QUALIFIERS 


: BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /MOTRACE/LIS=L1S8: SATSPCBL 1/08 9088: SATSPCOLI MSRC$:SRTSPCBLI/UPDATE=(ENH$: SRTSPCBLI 
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Size: 8135 coge + 1216 data bytes 
Run Time: 217.9 


Elapsed Time: Ee 4 
Lines/CPU Min: 94 
Lexemes/CPU-Min: 3014 
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